Reuniones de consultoría en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Un consultor tiene por costumbre cobrar su trabajo de acuerdo al número de reuniones de consultoría que tenga con un determinado cliente, de la siguiente manera:
- Las cinco primeras reuniones de consultoría a $500.00 c/u.
- Las siguientes cuatro reuniones de consultoría a $400.00 c/u.
- Las tres siguientes reuniones de consultoría a $300.00 c/u.
- Las siguientes seis reuniones de consultoría a $150.00 c/u.
- Las restantes a $75.00 c/u, mientras dure la asesoría.
Se requiere determinar:
- El monto que pagará el cliente por la actual reunión de consultoría.
- El monto de lo que ha pagado el cliente por todas las reuniones de consultoría que haya tenido.

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

Proceso ReunionesDeConsultoria

    monto_por_todas <- 0;

    numero_de_reunion <- 0;

    Repetir

        numero_de_reunion <- numero_de_reunion+1;

        monto_a_pagar <- 0;

        Si numero_de_reunion<=5 Entonces

            monto_a_pagar <- 500;

        FinSi

        Si numero_de_reunion>5 Y numero_de_reunion<=9 Entonces

            monto_a_pagar <- 400;

        FinSi

        Si numero_de_reunion>9 Y numero_de_reunion<=12 Entonces

            monto_a_pagar <- 300;

        FinSi

        Si numero_de_reunion>12 Y numero_de_reunion<=18 Entonces

            monto_a_pagar <- 150;

        FinSi

        Si numero_de_reunion>18 Entonces

            monto_a_pagar <- 75;

        FinSi

        monto_por_todas <- monto_por_todas+monto_a_pagar;

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

        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'

    Escribir "Valor de monto por todas: ", monto_por_todas;

    Escribir "Valor de numero de reunion: ", numero_de_reunion;

FinProceso