-
Lenguaje
Pascal
-
Descripción
Hacer un programa que calcule el sueldo mensual de N empleados de una empresa. Se ingresa el nombre, numero de días trabajados, faltas por cada empleado.
También 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 o más de 4000.
Considere constante el pago por día a cada empleado y que el descuento por día de falta es de 100% del pago diario.
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
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
program SueldoMensualDeNEmpleados;
uses crt;
var empleados_entre_2500_y_3500, empleados_mas_4000, empleados_menos_1000, i, n : integer;
var dias_trabajados, faltas, pago_por_dia, sueldo_mensual, sueldos_de_todos : real;
var nombre : string;
begin
empleados_menos_1000 := 0;
empleados_entre_2500_y_3500 := 0;
empleados_mas_4000 := 0;
sueldos_de_todos := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de dias trabajados: ');
readln (dias_trabajados);
write ('Ingresa el valor de faltas: ');
readln (faltas);
write ('Ingresa el valor de pago por dia: ');
readln (pago_por_dia);
sueldo_mensual := (dias_trabajados-faltas)*pago_por_dia;
if sueldo_mensual<1000 then
begin
empleados_menos_1000 := empleados_menos_1000+1;
end;
if (sueldo_mensual>=2500) and (sueldo_mensual<=3500) then
begin
empleados_entre_2500_y_3500 := empleados_entre_2500_y_3500+1;
end;
if sueldo_mensual>4000 then
begin
empleados_mas_4000 := empleados_mas_4000+1;
end;
sueldos_de_todos := sueldos_de_todos+sueldo_mensual;
writeln ('Nombre: ', nombre);
writeln ('Valor de sueldo mensual: ', sueldo_mensual:0:6);
writeln;
end;
writeln ('Valor de empleados menos 1000: ', empleados_menos_1000);
writeln ('Valor de empleados entre 2500 y 3500: ', empleados_entre_2500_y_3500);
writeln ('Valor de empleados mas 4000: ', empleados_mas_4000);
writeln ('Valor de sueldos de todos: ', sueldos_de_todos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var empleados_entre_2500_y_3500, empleados_mas_4000, empleados_menos_1000, i, n : integer;
var dias_trabajados, faltas, pago_por_dia, sueldo_mensual, sueldos_de_todos : real;
var nombre : string;
begin
empleados_menos_1000 := 0;
empleados_entre_2500_y_3500 := 0;
empleados_mas_4000 := 0;
sueldos_de_todos := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de dias trabajados: ');
readln (dias_trabajados);
write ('Ingresa el valor de faltas: ');
readln (faltas);
write ('Ingresa el valor de pago por dia: ');
readln (pago_por_dia);
sueldo_mensual := (dias_trabajados-faltas)*pago_por_dia;
if sueldo_mensual<1000 then
begin
empleados_menos_1000 := empleados_menos_1000+1;
end;
if (sueldo_mensual>=2500) and (sueldo_mensual<=3500) then
begin
empleados_entre_2500_y_3500 := empleados_entre_2500_y_3500+1;
end;
if sueldo_mensual>4000 then
begin
empleados_mas_4000 := empleados_mas_4000+1;
end;
sueldos_de_todos := sueldos_de_todos+sueldo_mensual;
writeln ('Nombre: ', nombre);
writeln ('Valor de sueldo mensual: ', sueldo_mensual:0:6);
writeln;
end;
writeln ('Valor de empleados menos 1000: ', empleados_menos_1000);
writeln ('Valor de empleados entre 2500 y 3500: ', empleados_entre_2500_y_3500);
writeln ('Valor de empleados mas 4000: ', empleados_mas_4000);
writeln ('Valor de sueldos de todos: ', sueldos_de_todos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.