-
Lenguaje
Pascal
-
Descripción
Determine el sueldo semanal de N trabajadores considerando que se les descuenta 5% de su sueldo si ganan entre 0 y 150 pesos. Se les descuenta 7% si ganan más de 150 pero menos de 300, y 9% si ganan más de 300 pero menos de 450. Los datos son horas trabajadas, sueldo por hora y nombre de cada trabajador.
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
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
program SueldoSemanalDeNTrabajadores;
uses crt;
var i, n : integer;
var descuento, horas_trabajadas, sueldo_por_hora, sueldo_semanal : real;
var nombre_del_trabajador : string;
begin
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre del trabajador: ');
readln (nombre_del_trabajador);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de sueldo por hora: ');
readln (sueldo_por_hora);
sueldo_semanal := horas_trabajadas*sueldo_por_hora;
descuento := 0;
if (sueldo_semanal>0) and (sueldo_semanal<=150) then
begin
descuento := sueldo_semanal*0.05;
end;
if (sueldo_semanal>150) and (sueldo_semanal<=300) then
begin
descuento := sueldo_semanal*0.07;
end;
if (sueldo_semanal>300) and (sueldo_semanal<=450) then
begin
descuento := sueldo_semanal*0.09;
end;
sueldo_semanal := sueldo_semanal-descuento;
writeln ('Nombre del trabajador: ', nombre_del_trabajador);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de sueldo semanal: ', sueldo_semanal:0:6);
writeln;
end;
end.
uses crt;
var i, n : integer;
var descuento, horas_trabajadas, sueldo_por_hora, sueldo_semanal : real;
var nombre_del_trabajador : string;
begin
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre del trabajador: ');
readln (nombre_del_trabajador);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de sueldo por hora: ');
readln (sueldo_por_hora);
sueldo_semanal := horas_trabajadas*sueldo_por_hora;
descuento := 0;
if (sueldo_semanal>0) and (sueldo_semanal<=150) then
begin
descuento := sueldo_semanal*0.05;
end;
if (sueldo_semanal>150) and (sueldo_semanal<=300) then
begin
descuento := sueldo_semanal*0.07;
end;
if (sueldo_semanal>300) and (sueldo_semanal<=450) then
begin
descuento := sueldo_semanal*0.09;
end;
sueldo_semanal := sueldo_semanal-descuento;
writeln ('Nombre del trabajador: ', nombre_del_trabajador);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de sueldo semanal: ', sueldo_semanal:0:6);
writeln;
end;
end.