• Lenguaje

    Pascal

  • Descripción

    Calcular el sueldo de un operario. Para lo cual se debe leer sus horas de trabajo normal, sus horas extras en la semana y el pago por hora. Teniendo en cuenta que por cada hora extra el pago es 50 % más que el pago normal por hora. Obtener el pago semanal.

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

var horas_de_trabajo_normal, horas_extras_en_la_semana, pago_por_hora, pago_semanal : real;
begin
    write ('Ingresa el valor de horas de trabajo normal: ');
    readln (horas_de_trabajo_normal);
    write ('Ingresa el valor de horas extras en la semana: ');
    readln (horas_extras_en_la_semana);
    write ('Ingresa el valor de pago por hora: ');
    readln (pago_por_hora);
    pago_semanal := horas_de_trabajo_normal*pago_por_hora+horas_extras_en_la_semana*pago_por_hora*1.5;
    writeln ('Valor de pago semanal: ', pago_semanal:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.