• 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
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.