• Lenguaje

    Pascal

  • Descripción

    Calcular la nómina semanal de 5 obreros, con la siguiente características:
    - Valor hora $1,000.
    - Digitar el número de horas trabajadas por semana por cada obrero.
    - Calcular el valor a pagar por cada obrero
    - Calcular el valor total pagado a todos los obreros.

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

var i : integer;
var horas_trabajadas, pago, total_pagado : real;
begin
    total_pagado := 0;
    for i:=1 to 5 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de horas trabajadas: ');
        readln (horas_trabajadas);
        pago := horas_trabajadas*1000;
        total_pagado := total_pagado+pago;
        writeln ('Valor de pago: ', pago:0:6);
        writeln;
    end;
    writeln ('Valor de total pagado: ', total_pagado:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.