Socio de un club en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Calcular el monto que debe pagar el socio de un club por derecho de pertenencia. Si es socio EXCLUSIVO pagará S/. 500.00, si es socio EJECUTIVO pagará S/. 300.00, y si es socio REGULAR pagará S/. 150.00. Si el socio tiene deuda, tendrá un recargo del 15% sobre el total de su deuda. En ningún caso el recargo será mayor de S/. 120.00 ni menor de S/. 30.00.

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 SocioDeUnClub

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

    Leer deuda;

    subtotal <- 0;

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

    Escribir "    1.- EXCLUSIVO";

    Escribir "    2.- EJECUTIVO";

    Escribir "    3.- REGULAR";

    Escribir Sin Saltar "    :";

    Repetir

        Leer tipo_de_socio;

        Si tipo_de_socio<1 O tipo_de_socio>3 Entonces

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

        FinSi

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

    Si tipo_de_socio = 1 Entonces

        subtotal <- 500;

    FinSi

    Si tipo_de_socio = 2 Entonces

        subtotal <- 300;

    FinSi

    Si tipo_de_socio = 3 Entonces

        subtotal <- 150;

    FinSi

    recargo <- deuda*0.15;

    Si recargo>120 Entonces

        recargo <- 120;

    FinSi

    Si recargo>0 Y recargo<30 Entonces

        recargo <- 30;

    FinSi

    monto_a_pagar <- subtotal+recargo;

    Escribir "Valor de monto a pagar: ", monto_a_pagar;

    Escribir "Valor de recargo: ", recargo;

    Escribir "Valor de subtotal: ", subtotal;

FinProceso