SLE_Practica29_CalculoSalario

/* PRACTICA43_CalculoSalario
Modulo que recibe las horas trabajadas, el precio por hora trabajada y el precio de la hora extra. Con estos datos calcular
y devolver el salario de un trabajador, donde las primeras 40 horas se pagan normal y las restantes se pagan como
tiempo extra */

var
    horas_trab, precioHora, precioHrExtra: numerico
    nSalario: numerico
    resp:cadena

inicio
   cls()
    repetir
        imprimir ("Cuantas horas laboro el empleado?:")
        leer (horas_trab)
        imprimir ("Cual es el precio por hora?")
        leer (precioHora)
        imprimir ("Cual es el precio por hora extra?")
        leer (precioHrExtra)
        nSalario = CalculoSalario( horas_trab, precioHora, precioHrExtra)
        imprimir ("El sueldo del trabajador es: ", nSalario, "\n\n")
       imprimir ("Deseas calcular otra trabajador? (s/n)")
        leer (resp)
    hasta (resp=="n")
fin

/* Modulo  */
subrutina CalculoSalario( vHoras, vPrecio, vExtras:numerico) retorna numerico
var
    vSueldo: numerico


inicio

   vSueldo = (vHoras * vPrecio) + ( (vHoras - 40) * vExtras)

retorna (vSueldo)
fin