-
Lenguaje
Pascal
-
Descripción
Se requiere calcular el sueldo de un trabajador de acuerdo a los siguientes condiciones:
- Valor de la hora $100,000
- La cantidad de horas laborales las debe ingresarlas el auxiliar contable de la empresa.
- Hay que descontar la salud y pensión que es el 12% del subtotal del sueldo.
- El trabajador tiene derecho a un subsidio de transporte que es $117,172, si no excede los dos salarios mínimos. (valor del salario mínimo $1,160,000)
- Mostrar el total devengado del 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
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
program TotalDevengadoDeUnTrabajador;
uses crt;
var horas_laborales, salario_minimo, salud_y_pension, subsidio_de_transporte, subtotal : real;
var total_devengado : real;
begin
write ('Ingresa el valor de horas laborales: ');
readln (horas_laborales);
salario_minimo := 1160000;
subtotal := 100000.0*horas_laborales;
salud_y_pension := subtotal*0.12;
if subtotal<=salario_minimo*2 then
begin
subsidio_de_transporte := 117172;
end
else
begin
subsidio_de_transporte := 0;
end;
total_devengado := subtotal-salud_y_pension+subsidio_de_transporte;
writeln ('Valor de salario minimo: ', salario_minimo:0:6);
writeln ('Valor de salud y pension: ', salud_y_pension:0:6);
writeln ('Valor de subsidio de transporte: ', subsidio_de_transporte:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total devengado: ', total_devengado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_laborales, salario_minimo, salud_y_pension, subsidio_de_transporte, subtotal : real;
var total_devengado : real;
begin
write ('Ingresa el valor de horas laborales: ');
readln (horas_laborales);
salario_minimo := 1160000;
subtotal := 100000.0*horas_laborales;
salud_y_pension := subtotal*0.12;
if subtotal<=salario_minimo*2 then
begin
subsidio_de_transporte := 117172;
end
else
begin
subsidio_de_transporte := 0;
end;
total_devengado := subtotal-salud_y_pension+subsidio_de_transporte;
writeln ('Valor de salario minimo: ', salario_minimo:0:6);
writeln ('Valor de salud y pension: ', salud_y_pension:0:6);
writeln ('Valor de subsidio de transporte: ', subsidio_de_transporte:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total devengado: ', total_devengado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.