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