-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Permita calcular la nómina, solicitar el nombre, el valor devengado y el valor actual del salario mínimo. Se realizan los siguientes descuentos:
- Si el valor devengado es menor o igual a tres salarios mínimos se descuenta para salud el 5%, para pensiones el 11.8% y para seguridad social el 3%.
- Si el valor devengado es mayor a 4 salarios y menor a 8 salarios se descuenta para salud el 10%, para pensiones el 15% y para seguridad social el 5%.
- Si el sueldo es superior a 8 salarios y menor o igual a 20 salarios mínimos se realizan los siguientes descuentos: salud el 20%, para pensiones el 13% para seguridad social el 10% y por impuesto de guerra el 5%.
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
41
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
41
Proceso CalculoDeLaNomina
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 nombre:";
Leer nombre;
Escribir Sin Saltar "Ingresa el valor de salario minimo:";
Leer salario_minimo;
Escribir Sin Saltar "Ingresa el valor de sueldo devengado:";
Leer sueldo_devengado;
salud <- 0;
pensiones <- 0;
seguridad <- 0;
guerra <- 0;
Si sueldo_devengado<=salario_minimo*3 Entonces
salud <- sueldo_devengado*0.05;
pensiones <- sueldo_devengado*0.118;
seguridad <- sueldo_devengado*0.03;
FinSi
Si sueldo_devengado>salario_minimo*4 Y sueldo_devengado<salario_minimo*8 Entonces
salud <- sueldo_devengado*0.1;
pensiones <- sueldo_devengado*0.15;
seguridad <- sueldo_devengado*0.05;
FinSi
Si sueldo_devengado>salario_minimo*8 Y salario_minimo<=salario_minimo*20 Entonces
salud <- sueldo_devengado*0.2;
pensiones <- sueldo_devengado*0.13;
seguridad <- sueldo_devengado*0.1;
guerra <- sueldo_devengado*0.05;
FinSi
nomina <- sueldo_devengado-salud-pensiones-seguridad-guerra;
Escribir "Nombre: ", nombre;
Escribir "Valor de guerra: ", guerra;
Escribir "Valor de nomina: ", nomina;
Escribir "Valor de pensiones: ", pensiones;
Escribir "Valor de salud: ", salud;
Escribir "Valor de seguridad: ", seguridad;
Escribir "";
FinPara
FinProceso
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 nombre:";
Leer nombre;
Escribir Sin Saltar "Ingresa el valor de salario minimo:";
Leer salario_minimo;
Escribir Sin Saltar "Ingresa el valor de sueldo devengado:";
Leer sueldo_devengado;
salud <- 0;
pensiones <- 0;
seguridad <- 0;
guerra <- 0;
Si sueldo_devengado<=salario_minimo*3 Entonces
salud <- sueldo_devengado*0.05;
pensiones <- sueldo_devengado*0.118;
seguridad <- sueldo_devengado*0.03;
FinSi
Si sueldo_devengado>salario_minimo*4 Y sueldo_devengado<salario_minimo*8 Entonces
salud <- sueldo_devengado*0.1;
pensiones <- sueldo_devengado*0.15;
seguridad <- sueldo_devengado*0.05;
FinSi
Si sueldo_devengado>salario_minimo*8 Y salario_minimo<=salario_minimo*20 Entonces
salud <- sueldo_devengado*0.2;
pensiones <- sueldo_devengado*0.13;
seguridad <- sueldo_devengado*0.1;
guerra <- sueldo_devengado*0.05;
FinSi
nomina <- sueldo_devengado-salud-pensiones-seguridad-guerra;
Escribir "Nombre: ", nombre;
Escribir "Valor de guerra: ", guerra;
Escribir "Valor de nomina: ", nomina;
Escribir "Valor de pensiones: ", pensiones;
Escribir "Valor de salud: ", salud;
Escribir "Valor de seguridad: ", seguridad;
Escribir "";
FinPara
FinProceso