Salario de varios empleados en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

En una empresa trabajan varios empleados (N), cada uno cuenta con un salario básico. Se requiere saber:
1. ¿Qué sueldo cobra cada empleado?
2. ¿Cuánto paga la empresa a todos los empleados?
3. ¿Cuánto ganan en total todas las mujeres que estén estudiando?
4. ¿Cuánto ganan en promedio todos los hombres?
Se sabe el salario mínimo mensual, el auxilio de transporte, sexo, edad, estado (estudiante, no estudiante).
Para el pago de dicho salario se tienen las siguientes condiciones:
- Un empleado tiene derecho a auxilio de transporte si su salario básico es menos de 1300.
- Si el empleado es de sexo femenino y está estudiando se le da una bonificación de 2% del salario y que si es hombre una bonificación de 1% de su salario.
- Si el empleado tiene hijos recibe un auxilio de $10.000 por cada hijo.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73

Proceso SalarioDeVariosEmpleados

    hombres <- 0;

    mujeres_estudiando <- 0;

    pago_a_todos <- 0;

    promedio_hombres <- 0;

    Escribir Sin Saltar "Ingresa el valor de tarifa de auxilio de transporte:";

    Leer tarifa_de_auxilio_de_transporte;

    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 valor de numero de hijos:";

        Leer numero_de_hijos;

        Escribir Sin Saltar "Ingresa el valor de salario basico:";

        Leer salario_basico;

        Escribir "Selecciona el valor de estado.";

        Escribir "    1.- Estudiante";

        Escribir "    2.- No estudiante";

        Escribir Sin Saltar "    :";

        Repetir

            Leer estado;

            Si estado<1 O estado>2 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que estado>=1 Y estado<=2;

        Escribir "Selecciona el valor de sexo.";

        Escribir "    1.- Mujer";

        Escribir "    2.- Hombre";

        Escribir Sin Saltar "    :";

        Repetir

            Leer sexo;

            Si sexo<1 O sexo>2 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que sexo>=1 Y sexo<=2;

        bonificacion <- 0;

        Si salario_basico<1300 Entonces

            auxilio_de_transporte <- tarifa_de_auxilio_de_transporte;

        SiNo

            auxilio_de_transporte <- 0;

        FinSi

        Si sexo = 1 Y estado = 1 Entonces

            bonificacion <- salario_basico*0.02;

        FinSi

        Si sexo = 2 Y estado = 1 Entonces

            bonificacion <- salario_basico*0.01;

        FinSi

        auxilio <- numero_de_hijos*10000;

        sueldo_cobrado <- salario_basico+auxilio_de_transporte+bonificacion+auxilio;

        pago_a_todos <- pago_a_todos+sueldo_cobrado;

        Si sexo = 1 Y estado = 1 Entonces

            mujeres_estudiando <- mujeres_estudiando+sueldo_cobrado;

        FinSi

        Si sexo = 2 Entonces

            hombres <- hombres+1;

            promedio_hombres <- promedio_hombres+sueldo_cobrado;

        FinSi

        Escribir "Valor de auxilio: ", auxilio;

        Escribir "Valor de auxilio de transporte: ", auxilio_de_transporte;

        Escribir "Valor de bonificacion: ", bonificacion;

        Escribir "Valor de sueldo cobrado: ", sueldo_cobrado;

        Escribir "";

    FinPara

    Si hombres = 0 Entonces

        promedio_hombres <- 0;

    SiNo

        promedio_hombres <- promedio_hombres/hombres;

    FinSi

    Escribir "Valor de hombres: ", hombres;

    Escribir "Valor de mujeres estudiando: ", mujeres_estudiando;

    Escribir "Valor de pago a todos: ", pago_a_todos;

    Escribir "Valor de promedio hombres: ", promedio_hombres;

FinProceso