Remuneración fija más bonificación en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

En una empresa se registran los siguientes datos de sus N empleados: remuneración fija, estado civil (soltero o casado) y años de servicio, se solicita calcular:
a) El sueldo final, sabiendo que todos reciben su remuneración fija más la bonificación que se indica en la tabla:
Años de servicio | % de Bonificación sobre la remuneración fija
0 – 10 | 3%
11 - más | 7%
b) El menor número de años de servicio de los solteros.
c) El menor número de años de servicio de los casados.

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

Proceso RemuneracionFijaMasBonificacion

    menor_casados <- 0;

    menor_solteros <- 0;

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

    Leer n;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el valor de anos de servicio:";

        Leer anos_de_servicio;

        Escribir Sin Saltar "Ingresa el valor de remuneracion fija:";

        Leer remuneracion_fija;

        Escribir "Selecciona el valor de estado civil.";

        Escribir "    1.- Soltero";

        Escribir "    2.- Casado";

        Escribir Sin Saltar "    :";

        Repetir

            Leer estado_civil;

            Si estado_civil<1 O estado_civil>2 Entonces

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

            FinSi

        Hasta Que estado_civil>=1 Y estado_civil<=2;

        Si anos_de_servicio<11 Entonces

            bonificacion <- remuneracion_fija*0.03;

        SiNo

            bonificacion <- remuneracion_fija*0.07;

        FinSi

        sueldo_final <- remuneracion_fija+bonificacion;

        Si estado_civil = 1 Y (i = 1 O menor_solteros>anos_de_servicio) Entonces

            menor_solteros <- anos_de_servicio;

        FinSi

        Si estado_civil = 2 Y (i = 1 O menor_casados>anos_de_servicio) Entonces

            menor_casados <- anos_de_servicio;

        FinSi

        Escribir "Valor de bonificacion: ", bonificacion;

        Escribir "Valor de sueldo final: ", sueldo_final;

        Escribir "";

    FinPara

    Escribir "Valor de menor casados: ", menor_casados;

    Escribir "Valor de menor solteros: ", menor_solteros;

FinProceso