Salarios semanales de trabajadores en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Calcular los salarios semanales de los trabajadores de una empresa a partir de los siguientes datos:
- Número de empleado.
- Número de horas trabajadas.
- El turno de trabajo realizado (Mañana 1, Tarde 2, Noche 3).
- La tarifa ordinaria por hora de cada uno de los trabajadores.
Para el cálculo del salario bruto se tendrá en cuenta que el turno de tarde se paga a 1,2 más de la tarifa ordinaria, mientras que el turno de noche se paga a 1,5 más, también de la tarifa ordinaria.
Para el cálculo del salario neto se realizan determinados descuentos destinados al pago de impuestos.
Se desea imprimir el salario bruto de cada trabajador.
La lectura de los datos finaliza respondiendo S (Sí) o N (No).

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

Proceso SalariosSemanalesDeTrabajadores

    Repetir

        Escribir Sin Saltar "Ingresa el numero de empleado:";

        Leer numero_de_empleado;

        Escribir Sin Saltar "Ingresa el valor de horas trabajadas:";

        Leer horas_trabajadas;

        Escribir Sin Saltar "Ingresa el valor de impuestos:";

        Leer impuestos;

        Escribir Sin Saltar "Ingresa el valor de tarifa ordinaria:";

        Leer tarifa_ordinaria;

        salario_bruto <- 0;

        Escribir "Selecciona el valor de turno.";

        Escribir "    1.- Mañana";

        Escribir "    2.- Tarde";

        Escribir "    3.- Noche";

        Escribir Sin Saltar "    :";

        Repetir

            Leer turno;

            Si turno<1 O turno>3 Entonces

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

            FinSi

        Hasta Que turno>=1 Y turno<=3;

        Si turno = 1 Entonces

            salario_bruto <- horas_trabajadas*tarifa_ordinaria;

        FinSi

        Si turno = 2 Entonces

            salario_bruto <- horas_trabajadas*tarifa_ordinaria*1.2;

        FinSi

        Si turno = 3 Entonces

            salario_bruto <- horas_trabajadas*tarifa_ordinaria*1.5;

        FinSi

        salario neto <- salario_bruto-impuestos;

        Escribir "Numero de empleado: ", numero_de_empleado;

        Escribir "Valor de salario neto: ", salario neto;

        Escribir "Valor de salario bruto: ", salario_bruto;

        Escribir "";

        Repetir

            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";

            Leer tecla_repetir;

        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'

    Hasta Que tecla_repetir='n' O tecla_repetir='N'

FinProceso