-
Lenguaje
Pascal
-
Descripción
En una empresa trabajan N empleados cuyos sueldos se pagan al final del mes. Lea los sueldos que cobra cada empleado e informe:
a. Cuántos empleados cobran menos de $300, cuántos entre $300 y $700 y cuántos cobran más de $700.
b. El importe que gasta la empresa en sueldos al personal.
c. El promedio de sueldos.
d. El mayor y menor sueldo.
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
program PromedioDeSueldos;
uses crt;
var entre_300y700, i, mas_de_700, menos_de_300, n : integer;
var gasto_de_la_empresa, mayor, menor, promedio, sueldo : real;
begin
entre_300y700 := 0;
mas_de_700 := 0;
menos_de_300 := 0;
gasto_de_la_empresa := 0;
mayor := 0;
menor := 0;
promedio := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
if sueldo<300 then
begin
menos_de_300 := menos_de_300+1;
end;
if (sueldo>=300) and (sueldo<=700) then
begin
entre_300y700 := entre_300y700+1;
end;
if sueldo>700 then
begin
mas_de_700 := mas_de_700+1;
end;
gasto_de_la_empresa := gasto_de_la_empresa+sueldo;
if (i=1) or (mayor<sueldo) then
begin
mayor := sueldo;
end;
if (i=1) or (menor>sueldo) then
begin
menor := sueldo;
end;
writeln;
end;
if n = 0 then
promedio := 0
else
promedio := gasto_de_la_empresa/n;
writeln ('Valor de entre 300y700: ', entre_300y700);
writeln ('Valor de mas de 700: ', mas_de_700);
writeln ('Valor de menos de 300: ', menos_de_300);
writeln ('Valor de gasto de la empresa: ', gasto_de_la_empresa:0:6);
writeln ('Valor de mayor: ', mayor:0:6);
writeln ('Valor de menor: ', menor:0:6);
writeln ('Valor de promedio: ', promedio:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var entre_300y700, i, mas_de_700, menos_de_300, n : integer;
var gasto_de_la_empresa, mayor, menor, promedio, sueldo : real;
begin
entre_300y700 := 0;
mas_de_700 := 0;
menos_de_300 := 0;
gasto_de_la_empresa := 0;
mayor := 0;
menor := 0;
promedio := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
if sueldo<300 then
begin
menos_de_300 := menos_de_300+1;
end;
if (sueldo>=300) and (sueldo<=700) then
begin
entre_300y700 := entre_300y700+1;
end;
if sueldo>700 then
begin
mas_de_700 := mas_de_700+1;
end;
gasto_de_la_empresa := gasto_de_la_empresa+sueldo;
if (i=1) or (mayor<sueldo) then
begin
mayor := sueldo;
end;
if (i=1) or (menor>sueldo) then
begin
menor := sueldo;
end;
writeln;
end;
if n = 0 then
promedio := 0
else
promedio := gasto_de_la_empresa/n;
writeln ('Valor de entre 300y700: ', entre_300y700);
writeln ('Valor de mas de 700: ', mas_de_700);
writeln ('Valor de menos de 300: ', menos_de_300);
writeln ('Valor de gasto de la empresa: ', gasto_de_la_empresa:0:6);
writeln ('Valor de mayor: ', mayor:0:6);
writeln ('Valor de menor: ', menor:0:6);
writeln ('Valor de promedio: ', promedio:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.