-
Lenguaje
Pascal
-
Descripción
Se desea conocer el valor a pagar por cargas familiares para un determinado trabajador, para ello se debe ingresar el número de cargas del empleado y su sueldo. El algoritmo debe calcular el valor a pagar. El valor por carga se rige por la siguiente tabla:
Tramo | Rango sueldo | Valor por carga
1 | hasta 270996 | $10577
2 | > 270996 y < 394651 | $6491
3 | > 394651 y < 615521 | $2052
4 | > 615521 | $0
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 PagoPorCargasFamiliares;
uses crt;
var carga, numero_de_cargas, pago, sueldo : real;
begin
write ('Ingresa el valor de numero de cargas: ');
readln (numero_de_cargas);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
carga := 0;
if sueldo<270996 then
begin
carga := 10577;
end;
if (sueldo>=270996) and (sueldo<394651) then
begin
carga := 6491;
end;
if (sueldo>=394651) and (sueldo<615521) then
begin
carga := 2052;
end;
pago := numero_de_cargas*carga;
writeln ('Valor de carga: ', carga:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var carga, numero_de_cargas, pago, sueldo : real;
begin
write ('Ingresa el valor de numero de cargas: ');
readln (numero_de_cargas);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
carga := 0;
if sueldo<270996 then
begin
carga := 10577;
end;
if (sueldo>=270996) and (sueldo<394651) then
begin
carga := 6491;
end;
if (sueldo>=394651) and (sueldo<615521) then
begin
carga := 2052;
end;
pago := numero_de_cargas*carga;
writeln ('Valor de carga: ', carga:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.