-
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.
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
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