-
Lenguaje
Pascal
-
Descripción
Calcule N número de empleados de una empresa.
Se ingresa el nombre, el sueldo.
- Se pide el monto total de sueldos de todos los empleados.
- El número de empleados que ganan entre 2500 y 3500.
- El número de empleados que ganan menos de 1000.
- El número de empleados que ganan mas de 4000.
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
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
program MontoTotalDeSueldos;
uses crt;
var empleados_entre_2500_y_3500, empleados_mas_de_4000, empleados_menos_de_1000, i, n : integer;
var monto_total, sueldo : real;
var nombre_del_empleado : string;
begin
empleados_entre_2500_y_3500 := 0;
empleados_menos_de_1000 := 0;
empleados_mas_de_4000 := 0;
monto_total := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre del empleado: ');
readln (nombre_del_empleado);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
monto_total := monto_total+sueldo;
if (sueldo>=2500) and (sueldo<=3500) then
begin
empleados_entre_2500_y_3500 := empleados_entre_2500_y_3500+1;
end;
if sueldo<1000 then
begin
empleados_menos_de_1000 := empleados_menos_de_1000+1;
end;
if sueldo>4000 then
begin
empleados_mas_de_4000 := empleados_mas_de_4000+1;
end;
writeln ('Nombre del empleado: ', nombre_del_empleado);
writeln;
end;
writeln ('Valor de empleados entre 2500 y 3500: ', empleados_entre_2500_y_3500);
writeln ('Valor de empleados menos de 1000: ', empleados_menos_de_1000);
writeln ('Valor de empleados mas de 4000: ', empleados_mas_de_4000);
writeln ('Valor de monto total: ', monto_total:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var empleados_entre_2500_y_3500, empleados_mas_de_4000, empleados_menos_de_1000, i, n : integer;
var monto_total, sueldo : real;
var nombre_del_empleado : string;
begin
empleados_entre_2500_y_3500 := 0;
empleados_menos_de_1000 := 0;
empleados_mas_de_4000 := 0;
monto_total := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre del empleado: ');
readln (nombre_del_empleado);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
monto_total := monto_total+sueldo;
if (sueldo>=2500) and (sueldo<=3500) then
begin
empleados_entre_2500_y_3500 := empleados_entre_2500_y_3500+1;
end;
if sueldo<1000 then
begin
empleados_menos_de_1000 := empleados_menos_de_1000+1;
end;
if sueldo>4000 then
begin
empleados_mas_de_4000 := empleados_mas_de_4000+1;
end;
writeln ('Nombre del empleado: ', nombre_del_empleado);
writeln;
end;
writeln ('Valor de empleados entre 2500 y 3500: ', empleados_entre_2500_y_3500);
writeln ('Valor de empleados menos de 1000: ', empleados_menos_de_1000);
writeln ('Valor de empleados mas de 4000: ', empleados_mas_de_4000);
writeln ('Valor de monto total: ', monto_total:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.