-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una fábrica paga a sus empleados de acuerdo a su condición, de tal manera que un obrero contratado recibe al mes 1200.00 soles y un obrero estable 1000.00 soles; así mismo, todos los empleados reciben un pago de gratificación en los meses de julio y diciembre. Dicha gratificación varía de acuerdo a los años de servicios que tiene el empleado, como se muestra en el siguiente cuadro:
Años de Servicios | % de Gratificación
0 a 5 | 60%
6 a 10 | 80%
11 a más | 100%
Además todos los empleados reciben un descuento por AFP del 9%. Calcular el sueldo de un obrero correspondiente a un mes determinado.
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
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 GratificacionAObreros
Escribir Sin Saltar "Ingresa el valor de anos de servicios:";
Leer anos_de_servicios;
Escribir Sin Saltar "Ingresa el valor de numero de mes:";
Leer numero_de_mes;
Escribir "Selecciona el valor de tipo de obrero.";
Escribir " 1.- Contratado";
Escribir " 2.- Estable";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_obrero;
Si tipo_de_obrero<1 O tipo_de_obrero>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_obrero>=1 Y tipo_de_obrero<=2;
Si tipo_de_obrero = 1 Entonces
menusalidad <- 1200;
SiNo
menusalidad <- 1000;
FinSi
gratificacion <- 0;
Si (numero_de_mes = 7 O numero_de_mes = 12) Y anos_de_servicios<=5 Entonces
gratificacion <- menusalidad*0.6;
FinSi
Si (numero_de_mes = 7 O numero_de_mes = 12) Y anos_de_servicios>5 Y anos_de_servicios<=10 Entonces
gratificacion <- menusalidad*0.8;
FinSi
Si (numero_de_mes = 7 O numero_de_mes = 12) Y anos_de_servicios>10 Entonces
gratificacion <- menusalidad;
FinSi
AFP <- (menusalidad+gratificacion)*0.09;
sueldo <- menusalidad+gratificacion-AFP;
Escribir "Valor de AFP: ", AFP;
Escribir "Valor de gratificacion: ", gratificacion;
Escribir "Valor de menusalidad: ", menusalidad;
Escribir "Valor de sueldo: ", sueldo;
FinProceso
Escribir Sin Saltar "Ingresa el valor de anos de servicios:";
Leer anos_de_servicios;
Escribir Sin Saltar "Ingresa el valor de numero de mes:";
Leer numero_de_mes;
Escribir "Selecciona el valor de tipo de obrero.";
Escribir " 1.- Contratado";
Escribir " 2.- Estable";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_obrero;
Si tipo_de_obrero<1 O tipo_de_obrero>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_obrero>=1 Y tipo_de_obrero<=2;
Si tipo_de_obrero = 1 Entonces
menusalidad <- 1200;
SiNo
menusalidad <- 1000;
FinSi
gratificacion <- 0;
Si (numero_de_mes = 7 O numero_de_mes = 12) Y anos_de_servicios<=5 Entonces
gratificacion <- menusalidad*0.6;
FinSi
Si (numero_de_mes = 7 O numero_de_mes = 12) Y anos_de_servicios>5 Y anos_de_servicios<=10 Entonces
gratificacion <- menusalidad*0.8;
FinSi
Si (numero_de_mes = 7 O numero_de_mes = 12) Y anos_de_servicios>10 Entonces
gratificacion <- menusalidad;
FinSi
AFP <- (menusalidad+gratificacion)*0.09;
sueldo <- menusalidad+gratificacion-AFP;
Escribir "Valor de AFP: ", AFP;
Escribir "Valor de gratificacion: ", gratificacion;
Escribir "Valor de menusalidad: ", menusalidad;
Escribir "Valor de sueldo: ", sueldo;
FinProceso