• Lenguaje

    PSeInt (Pseudocódigo)

  • 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
Proceso DescuentoDeIsrSfsYAfp
    Escribir Sin Saltar "Ingresa el cedula:";
    Leer cedula;
    Escribir Sin Saltar "Ingresa el nombre:";
    Leer nombre;
    Escribir Sin Saltar "Ingresa el apellido:";
    Leer apellido;
    Escribir Sin Saltar "Ingresa el valor de sueldo b:";
    Leer sueldo_b;
    Si sueldo_b>33000 Entonces
        isr <- sueldo_b*0.11;
        sfs <- sueldo_b*0.08;
        afp <- sueldo_b*0.06;
    SiNo
        isr <- sueldo_b*0.08;
        sfs <- sueldo_b*0.06;
        afp <- sueldo_b*0.04;
    FinSi
    td <- isr+sfs+afp;
    sn <- sueldo_b-td;
    Escribir "Cedula: ", cedula;
    Escribir "Nombre: ", nombre;
    Escribir "Apellido: ", apellido;
    Escribir "Valor de afp: ", afp;
    Escribir "Valor de isr: ", isr;
    Escribir "Valor de sfs: ", sfs;
    Escribir "Valor de sn: ", sn;
    Escribir "Valor de td: ", td;
FinProceso