• 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/.1800.00 y un empleado estable (EE) recibe S/.2500.00. Todos los empleados reciben un pago de gratificación en los meses de 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 5 | 60
    6 a 10 | 80
    11 a más | 100
    Por ejemplo un empleado que tiene 8 años de servicio recibe el 80% de su sueldo mensual Además a todos los empleados se les descuenta el 9% 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
Proceso SueldoMensualAEmpleadoContratadoOEstable2
    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 <- 1800;
    SiNo
        sueldo_mensual <- 2500;
    FinSi
    gratificacion <- 0;
    Si (mes = 7 O mes = 12) Y anos_de_servicios>=0 Y anos_de_servicios<6 Entonces
        gratificacion <- sueldo_mensual*0.6;
    FinSi
    Si (mes = 7 O mes = 12) Y anos_de_servicios>=6 Y anos_de_servicios<11 Entonces
        gratificacion <- sueldo_mensual*0.8;
    FinSi
    Si (mes = 7 O mes = 12) Y anos_de_servicios>=11 Entonces
        gratificacion <- sueldo_mensual;
    FinSi
    AFP <- (sueldo_mensual+gratificacion)*0.09;
    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