ISR, ARS y AFP para 20 empleados en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Acepte nombre, apellido, cédula y sueldo_b. Si este sueldo es mayor o igual a 20000, entonces descuente 8.5% de ISR, 7.5% de ARS y 6.5% de AFP, de lo contrario descuente un 7% de ISR , un 6% de ARS y un 5% de AFP, calcular el Total de descuento (TD=ISR+ARS+AFP), calcule el sueldo_N (SN=SB-TD) , imprima todas estas variables para 20 empleados.

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

Proceso IsrErsYAfpPara20Empleados

    Para i<-1 Hasta 20 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el nombre:";

        Leer nombre;

        Escribir Sin Saltar "Ingresa el apellido:";

        Leer apellido;

        Escribir Sin Saltar "Ingresa el cedula:";

        Leer cedula;

        Escribir Sin Saltar "Ingresa el valor de sueldo b:";

        Leer sueldo_b;

        Si sueldo_b>=20000 Entonces

            ISR <- sueldo_b*0.085;

            ARS <- sueldo_b*0.075;

            AFP <- sueldo_b*0.065;

        SiNo

            ISR <- sueldo_b*0.07;

            ARS <- sueldo_b*0.06;

            AFP <- sueldo_b*0.05;

        FinSi

        total_de_descuento <- ISR+ARS+AFP;

        sueldo_n <- sueldo_b-total_de_descuento;

        Escribir "Nombre: ", nombre;

        Escribir "Apellido: ", apellido;

        Escribir "Cedula: ", cedula;

        Escribir "Valor de AFP: ", AFP;

        Escribir "Valor de ARS: ", ARS;

        Escribir "Valor de ISR: ", ISR;

        Escribir "Valor de sueldo n: ", sueldo_n;

        Escribir "Valor de total de descuento: ", total_de_descuento;

        Escribir "";

    FinPara

FinProceso