-
Lenguaje
Pascal
-
Descripción
Un trabajador es contratado bajo las condiciones siguientes: Por las horas normales se le paga una tarifa fija. Se consideran horas normales a todas las horas trabajadas hasta un total de 140 al mes. Las horas adicionales a 140 se consideran como extras y una hora extra se paga equivalente a 1.5 horas normales. Los impuestos están en función al monto obtenido por el trabajador. Si el sueldo es menor o igual a $2,000 no paga impuestos, por los siguientes $2,000 paga el 10%, mientras que para los mayores a $4,000 paga el 15% sobre el adicional. ¿Cuál es el sueldo neto del trabajador y cuál es el monto en impuestos que debe pagar?
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
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
program SueldoNetoEImpuestos;
uses crt;
var horas_trabajadas, impuestos, pago_por_hora, sueldo, sueldo4000 : real;
var sueldo_neto : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
write ('Ingresa el valor de sueldo4000: ');
readln (sueldo4000);
impuestos := 0;
sueldo := horas_trabajadas*pago_por_hora;
if horas_trabajadas>140 then
begin
sueldo := sueldo+(horas_trabajadas-140)*pago_por_hora*1.5;
end;
if sueldo>2000 then
begin
impuestos := (sueldo-2000)*0.1;
end;
if sueldo>4000 then
begin
impuestos := impuestos+(sueldo4000)*0.05;
end;
sueldo_neto := sueldo-impuestos;
writeln ('Valor de impuestos: ', impuestos:0:6);
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_trabajadas, impuestos, pago_por_hora, sueldo, sueldo4000 : real;
var sueldo_neto : real;
begin
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
write ('Ingresa el valor de pago por hora: ');
readln (pago_por_hora);
write ('Ingresa el valor de sueldo4000: ');
readln (sueldo4000);
impuestos := 0;
sueldo := horas_trabajadas*pago_por_hora;
if horas_trabajadas>140 then
begin
sueldo := sueldo+(horas_trabajadas-140)*pago_por_hora*1.5;
end;
if sueldo>2000 then
begin
impuestos := (sueldo-2000)*0.1;
end;
if sueldo>4000 then
begin
impuestos := impuestos+(sueldo4000)*0.05;
end;
sueldo_neto := sueldo-impuestos;
writeln ('Valor de impuestos: ', impuestos:0:6);
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.