-
Lenguaje
Pascal
-
Descripción
Dado como datos los sueldos de 10 trabajadores de una empresa, obtenga el total de la nómina de la misma (total acumulado de sueldos), así como el total de los que ganan más de $5,000. Mostrar: el total que ganan más de $5,000 y los sueldos acumulados.
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 AcumuladoDeSueldos;
uses crt;
var i : integer;
var sueldo, sueldos_acumulados, total_ganan_mas : real;
begin
sueldos_acumulados := 0;
total_ganan_mas := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
sueldos_acumulados := sueldos_acumulados+sueldo;
if sueldo>5000 then
begin
total_ganan_mas := total_ganan_mas+sueldo;
end;
writeln;
end;
writeln ('Valor de sueldos acumulados: ', sueldos_acumulados:0:6);
writeln ('Valor de total ganan mas: ', total_ganan_mas:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var sueldo, sueldos_acumulados, total_ganan_mas : real;
begin
sueldos_acumulados := 0;
total_ganan_mas := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
sueldos_acumulados := sueldos_acumulados+sueldo;
if sueldo>5000 then
begin
total_ganan_mas := total_ganan_mas+sueldo;
end;
writeln;
end;
writeln ('Valor de sueldos acumulados: ', sueldos_acumulados:0:6);
writeln ('Valor de total ganan mas: ', total_ganan_mas:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.