Problema "Aumento de Sueldos"

Construya un diagrama de flujo y codigo correspondiente tal que dado como dato el sueldo de un trabajador, calcule su aumento según el siguiente criterio:

• SUELDO < 1000 BS   = AUMENTO DE 25%
• SUELDO >= 1000 BS y <=1500 bs  = AUMENTO DE 21%
• SUELDO > 1500 BS   = AUMENTO DE 18%

Imprima el nuevo sueldo del trabajador
Datos: SUELDO
donde Sueldo es una variable de tipo real, que expresa el sueldo del trabajador

DIAGRAMA DE FLUJO

Explicacion de variables
Sueldo: Variable de tipo real
nsueldo: variable de tipo real, Almacena el nuevo sueldo del trabajador con el aumento correspondiente

Codigo Consola Visual Basic

Module Module1

    Sub Main()
        Console.Write("Ingresa el sueldo: ")
        Dim sueldo = Val(Console.ReadLine)
        Dim nsueldo As Double
        If (sueldo < 1000) Then
            nsueldo = sueldo * 1.25
        Else
            If (sueldo <= 1500) Then
                nsueldo = sueldo * 1.21
            Else
                nsueldo = sueldo * 1.18
            End If
        End If
        Console.WriteLine("El nuevo sueldo es de: " & nsueldo)
        Console.ReadLine()
    End Sub

End Module

Resultado

Posted in: Consola,Ejercicios,Visual Basic