• Lenguaje

    Pascal

  • Descripción

    Determinar la cantidad de dinero que recibirá un trabajador por concepto de las horas extras trabajadas en una empresa, sabiendo que cuando las horas de trabajo exceden de 40, el resto se consideran horas extras y que estas se pagan al doble de una hora normal cuando no exceden de 8; si las horas extras exceden de 8 se pagan las primeras 8 al doble de lo que se pagan las horas normales y el resto al triple.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program PagoAUnTrabajadorPorHorasNormalesYExtras;
uses crt;

var cantidad_de_dinero, horas_de_trabajo, pago_por_hora : real;
begin
    write ('Ingresa el valor de horas de trabajo: ');
    readln (horas_de_trabajo);
    write ('Ingresa el valor de pago por hora: ');
    readln (pago_por_hora);
    cantidad_de_dinero := horas_de_trabajo*pago_por_hora;
    if horas_de_trabajo>40 then
        begin
            cantidad_de_dinero := cantidad_de_dinero+(horas_de_trabajo-40)*pago_por_hora;
        end;
    if horas_de_trabajo>48 then
        begin
            cantidad_de_dinero := cantidad_de_dinero+(horas_de_trabajo-48)*pago_por_hora;
        end;
    writeln ('Valor de cantidad de dinero: ', cantidad_de_dinero:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.