PseInt_Practica29_CalculoSalario

Proceso Practica43_CalculoSalario
    //Un modulo 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.

    Definir horas_trab, precioHora, precioHrExtra como Real
    definir nSalario como Numerico
    resp= ""
    repetir
        Borrar Pantalla
        Escribir "Cuantas horas laboro el empleado?"
        leer horas_trab
        Escribir "Cual es el precio por hora?"
        leer precioHora
        Escribir "Cual es el precio por Hora extra?"
        leer precioHrExtra
        nSalario = CalculoSalario( horas_trab, precioHora, precioHrExtra)
        Escribir "El sueldo del trabajador es: ",nSalario
        Escribir "Deseas calcular otro trabajador? (s/n)"
        leer resp
    Hasta Que resp = "n"

FinProceso

subproceso vSueldo <- CalculoSalario( vHoras, vPrecio, vExtras)
    definir vSueldo como Numerico
    vsueldo = (vHoras * vPrecio) + ((vHoras-40) * vExtras)
FinSubProceso