• Lenguaje

    Pascal

  • Descripción

    Calcular y mostrar el jornal mensual de acuerdo con las siguientes especificaciones:
    a) Los trabajadores tienen dos turnos (nocturno y diurno).
    b) La tarifa de las horas diurnas es de $10.
    c) La tarifa de las nocturnas es de $50.
    d) Ningún trabajador recibe nada por feriados.
    e) El trabajador será despedido si sus horas trabajadas son menores que 15. (mensual)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program JornalMensual;
uses crt;

var horas_diurnas, horas_nocturnas, jornal_mensual : integer;
begin
    write ('Ingresa el valor de horas diurnas: ');
    readln (horas_diurnas);
    write ('Ingresa el valor de horas nocturnas: ');
    readln (horas_nocturnas);
    jornal_mensual := horas_diurnas*10+horas_nocturnas*50;
    if horas_diurnas+horas_nocturnas<15 then
        begin
            writeln ('Despedido');
        end;
    writeln ('Valor de jornal mensual: ', jornal_mensual);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.