• Lenguaje

    Pascal

  • Descripción

    Aceptar por teclado: cédula, nombre, apellido, sueldo_b. Si el sueldo_b es mayor o igual a $33,000, entonces descuente: un 11% de impuesto sobre la renta (isr), un 8% de seguro familiar de salud (sfs), un 6% de administradora de fondos de pensiones (afp); de lo contrario descuente: un 8% de impuesto sobre la renta (isr), un 6% de seguro familiar de salud (sfs), un 4% de administradora de fondos de pensiones (afp). Calcular el total de descuento (td), que será la suma de los tres descuentos; y calcular el sueldo (sn), que será la resta del sueldo_b menos el total de descuento (td). Imprimir todas las variables y finalizar.

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
40
41
program DescuentoDeIsrSfsYAfp;
uses crt;

var afp, isr, sfs, sn, sueldo_b : real;
var td : real;
var cedula, nombre, apellido : string;
begin
    write ('Ingresa el cedula: ');
    readln (cedula);
    write ('Ingresa el nombre: ');
    readln (nombre);
    write ('Ingresa el apellido: ');
    readln (apellido);
    write ('Ingresa el valor de sueldo b: ');
    readln (sueldo_b);
    if sueldo_b>33000 then
        begin
            isr := sueldo_b*0.11;
            sfs := sueldo_b*0.08;
            afp := sueldo_b*0.06;
        end
    else
        begin
            isr := sueldo_b*0.08;
            sfs := sueldo_b*0.06;
            afp := sueldo_b*0.04;
        end;
    td := isr+sfs+afp;
    sn := sueldo_b-td;
    writeln ('Cedula: ', cedula);
    writeln ('Nombre: ', nombre);
    writeln ('Apellido: ', apellido);
    writeln ('Valor de afp: ', afp:0:6);
    writeln ('Valor de isr: ', isr:0:6);
    writeln ('Valor de sfs: ', sfs:0:6);
    writeln ('Valor de sn: ', sn:0:6);
    writeln ('Valor de td: ', td:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.