Descuentos y bonificaciones en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Un empresa requiere un formulario en línea que le permita calcular el total a pagar de sus trabajadores, teniendo en cuenta los siguientes descuentos y bonificaciones:

- Remuneraciones
Sueldo Base:
Horas extras: 2% del sueldo base
Asignacion Familiar: 15% del sueldo base
Bonificacion extraordinaria: 10% del sueldo base

- Descuentos
Escoger el tipo de seguro:
Seguro (ONP) : 10% del sueldo base
Seguro (AFP) : 20% del sueldo base
Impuesto a la renta (IR)
Si el sueldo base es mayor a 1000 entonces se descuenta el 15% de lo contrario no hay descuento por IR
Faltas: 5% del sueldo base

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

Proceso DescuentosYBonificaciones

    Escribir Sin Saltar "Ingresa el valor de sueldo base:";

    Leer sueldo_base;

    horas_extras <- sueldo_base*0.02;

    asignacion_familiar <- sueldo_base*0.15;

    bonificacion_extraordinaria <- sueldo_base*0.1;

    Escribir "Selecciona el valor de tipo de seguro.";

    Escribir "    1.- ONP";

    Escribir "    2.- AFP";

    Escribir Sin Saltar "    :";

    Repetir

        Leer tipo_de_seguro;

        Si tipo_de_seguro<1 O tipo_de_seguro>2 Entonces

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

        FinSi

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

    Si tipo_de_seguro = 1 Entonces

        seguro <- sueldo_base*0.1;

    SiNo

        seguro <- sueldo_base*0.2;

    FinSi

    Si sueldo_base>1000 Entonces

        ir <- sueldo_base*0.15;

    SiNo

        ir <- 0;

    FinSi

    faltas <- sueldo_base*0.05;

    total_a_pagar <- sueldo_base+horas_extras+asignacion_familiar+bonificacion_extraordinaria-tipo_de_seguro-seguro-ir-faltas;

    Escribir "Valor de asignacion familiar: ", asignacion_familiar;

    Escribir "Valor de bonificacion extraordinaria: ", bonificacion_extraordinaria;

    Escribir "Valor de faltas: ", faltas;

    Escribir "Valor de horas extras: ", horas_extras;

    Escribir "Valor de ir: ", ir;

    Escribir "Valor de seguro: ", seguro;

    Escribir "Valor de total a pagar: ", total_a_pagar;

FinProceso