Incremento por categoría en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una compañía incrementa el sueldo actual de sus empleados de acuerdo a su categoría como se muestra en el siguiente cuadro:
a=25
b=20
c=15
d=10
Además recibe un aumento especial de 2.5% de su sueldo actual por cada hijo que tuviese. Así mismo si el nuevo sueldo excede a $2,000 se descuenta el 3% por impuesto de solidaridad. Calcular el sueldo neto que recibe un empleado de dicha compañía.

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
42
43
44

Proceso IncrementoPorCategoria

    Escribir Sin Saltar "Ingresa el valor de numero de hijos:";

    Leer numero_de_hijos;

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

    Leer sueldo_actual;

    incremento <- 0;

    Escribir "Selecciona el valor de categoria.";

    Escribir "    1.- A";

    Escribir "    2.- B";

    Escribir "    3.- C";

    Escribir "    4.- D";

    Escribir Sin Saltar "    :";

    Repetir

        Leer categoria;

        Si categoria<1 O categoria>4 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que categoria>=1 Y categoria<=4;

    Si categoria = 1 Entonces

        incremento <- sueldo_actual*0.25;

    FinSi

    Si categoria = 2 Entonces

        incremento <- sueldo_actual*0.2;

    FinSi

    Si categoria = 3 Entonces

        incremento <- sueldo_actual*0.15;

    FinSi

    Si categoria = 4 Entonces

        incremento <- sueldo_actual*0.1;

    FinSi

    aumento_especial <- sueldo_actual*0.025*numero_de_hijos;

    nuevo_sueldo <- sueldo_actual+incremento+aumento_especial;

    Si nuevo_sueldo>2000 Entonces

        impuesto_de_solidaridad <- nuevo_sueldo*0.03;

    SiNo

        impuesto_de_solidaridad <- 0;

    FinSi

    sueldo_neto <- nuevo_sueldo-impuesto_de_solidaridad;

    Escribir "Valor de aumento especial: ", aumento_especial;

    Escribir "Valor de impuesto de solidaridad: ", impuesto_de_solidaridad;

    Escribir "Valor de incremento: ", incremento;

    Escribir "Valor de nuevo sueldo: ", nuevo_sueldo;

    Escribir "Valor de sueldo neto: ", sueldo_neto;

FinProceso