• Lenguaje

    Pascal

  • Descripción

    Calcular el salario neto de un trabajador. Él está en base a una jornada de 40 horas semanales. Si el trabajador supera las 40 horas por cada hora extra ganara 1.62 veces el precio normal de su hora. Si el trabajador labora menos de 40 horas el precio de la hora se recauda a 0.8 veces del precio por hora.

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

var horas_trabajadas, pago_por_hora, salario_neto : real;
begin
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas_trabajadas);
    write ('Ingresa el valor de pago por hora: ');
    readln (pago_por_hora);
    salario_neto := 0;
    if horas_trabajadas=40 then
        begin
            salario_neto := horas_trabajadas*pago_por_hora;
        end;
    if horas_trabajadas>40 then
        begin
            salario_neto := 40.0*pago_por_hora+(horas_trabajadas-40)*pago_por_hora*1.62;
        end;
    if horas_trabajadas<40 then
        begin
            salario_neto := horas_trabajadas*pago_por_hora*0.8;
        end;
    writeln ('Valor de salario neto: ', salario_neto:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.