• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Una empresa le asigna a sus empleados un sueldo mensual de acuerdo a su condición de trabajo, un empleado contratado (EC) recibe al mes S/.2000.00 y un empleado estable (EE) recibe S/.3000.00. Todos los empleados reciben un pago de gratificación en los meses de Abril, Julio y Diciembre. La gratificación varía de acuerdo a los años de servicios del empleado, como se muestra en el siguiente cuadro:
    Años de servicio | % de Gratificación
    0 a 3 | 30
    4 a 6 | 50
    7 a 11 | 75
    12 a más | 100
    Por ejemplo un empleado que tiene 5 años de servicio recibe el 50% de su sueldo mensual Además a todos los empleados se les descuenta el 6% de sus ingresos (sueldo mensual y gratificación) por concepto de AFP. Desarrollar el algoritmo que permita calcular el sueldo neto a recibir por un empleado, correspondiente a un mes determinado.
    a. Cálculo del sueldo mensual.
    b. Cálculo de la gratificación.
    c. Cálculo del sueldo neto mensual de un empleado.

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 SueldoMensualAEmpleadoContratadoOEstable1
    Escribir Sin Saltar "Ingresa el valor de anos de servicios:";
    Leer anos_de_servicios;
    Escribir Sin Saltar "Ingresa el valor de mes:";
    Leer mes;
    Escribir "Selecciona el valor de condicion de trabajo.";
    Escribir "    1.- EC empleado contratado";
    Escribir "    2.- EE empleado estable";
    Escribir Sin Saltar "    :";
    Repetir
        Leer condicion_de_trabajo;
        Si condicion_de_trabajo<1 O condicion_de_trabajo>2 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que condicion_de_trabajo>=1 Y condicion_de_trabajo<=2;
    Si condicion_de_trabajo = 1 Entonces
        sueldo_mensual <- 2000;
    SiNo
        sueldo_mensual <- 3000;
    FinSi
    gratificacion <- 0;
    Si (mes = 4 O mes = 7 O mes = 12) Y anos_de_servicios>=0 Y anos_de_servicios<4 Entonces
        gratificacion <- sueldo_mensual*0.3;
    FinSi
    Si (mes = 4 O mes = 7 O mes = 12) Y anos_de_servicios>=4 Y anos_de_servicios<7 Entonces
        gratificacion <- sueldo_mensual*0.5;
    FinSi
    Si (mes = 4 O mes = 7 O mes = 12) Y anos_de_servicios>=7 Y anos_de_servicios<12 Entonces
        gratificacion <- sueldo_mensual*0.75;
    FinSi
    Si (mes = 4 O mes = 7 O mes = 12) Y anos_de_servicios>=12 Entonces
        gratificacion <- sueldo_mensual;
    FinSi
    AFP <- (sueldo_mensual+gratificacion)*0.06;
    sueldo_neto_mensual <- sueldo_mensual+gratificacion-AFP;
    Escribir "Valor de AFP: ", AFP;
    Escribir "Valor de gratificacion: ", gratificacion;
    Escribir "Valor de sueldo mensual: ", sueldo_mensual;
    Escribir "Valor de sueldo neto mensual: ", sueldo_neto_mensual;
FinProceso