-
Lenguaje
Pascal
-
Descripción
Una empresa les paga a sus empleados con base en las horas trabajadas en la semana. Realice un programa para determinar el sueldo semanal de N trabajadores y, además, calcule cuánto pagó la empresa por los N.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program PagoSemanalDeNTrabajadores;
uses crt;
var i, n : integer;
var horas_trabajadas, pago_de_la_empresa, pago_por_hora, sueldo_semanal : real;
begin
pago_de_la_empresa := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
sueldo_semanal := pago_por_hora*horas_trabajadas;
pago_de_la_empresa := pago_de_la_empresa+sueldo_semanal;
writeln ('Valor de sueldo semanal: ', sueldo_semanal:0:6);
writeln;
end;
writeln ('Valor de pago de la empresa: ', pago_de_la_empresa:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, n : integer;
var horas_trabajadas, pago_de_la_empresa, pago_por_hora, sueldo_semanal : real;
begin
pago_de_la_empresa := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
sueldo_semanal := pago_por_hora*horas_trabajadas;
pago_de_la_empresa := pago_de_la_empresa+sueldo_semanal;
writeln ('Valor de sueldo semanal: ', sueldo_semanal:0:6);
writeln;
end;
writeln ('Valor de pago de la empresa: ', pago_de_la_empresa:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.