Aumento de la nómina en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una empresa con 20 empleados desea saber cuántos ganan menos de un salario mínimo, cuantos tienen un salario entre uno y dos salarios mínimos y cuantos ganan más de tres salarios mínimos. Además, cual es el valor actual de la nómina de la empresa, cuanto aumentará la nómina mensual si se hace incrementos así; 20% a aquellos que gana menos de un salario mínimo, 10% a los que ganan entre 1 y dos salarios mínimos y 5% a quienes gana más de 3 salarios mínimos.

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 AumentoDeLaNomina

    entre_uno_y_dos <- 0;

    mas_de_tres <- 0;

    menos_de_un_salario <- 0;

    nomina <- 0;

    nomina_aumentada <- 0;

    Escribir Sin Saltar "Ingresa el valor de salario minimo:";

    Leer salario_minimo;

    Para i<-1 Hasta 20 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el valor de salario:";

        Leer salario;

        Si salario<salario_minimo Entonces

            menos_de_un_salario <- menos_de_un_salario+1;

            nomina_aumentada <- nomina_aumentada+salario*1.2;

        FinSi

        Si salario>=salario_minimo Y salario<salario_minimo*3 Entonces

            entre_uno_y_dos <- entre_uno_y_dos+1;

            nomina_aumentada <- nomina_aumentada+salario*1.1;

        FinSi

        Si salario>=salario_minimo*3 Entonces

            mas_de_tres <- mas_de_tres+1;

            nomina_aumentada <- nomina_aumentada+salario*1.05;

        FinSi

        nomina <- nomina+salario;

        Escribir "";

    FinPara

    Escribir "Valor de entre uno y dos: ", entre_uno_y_dos;

    Escribir "Valor de mas de tres: ", mas_de_tres;

    Escribir "Valor de menos de un salario: ", menos_de_un_salario;

    Escribir "Valor de nomina: ", nomina;

    Escribir "Valor de nomina aumentada: ", nomina_aumentada;

FinProceso