Descuento por tipo de cliente en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una tienda departamental ofrece descuentos directos sobre las compras que los clientes realizan. El descuento normal va en función al tipo de cliente que la persona sea:
a) Normales: 10% de descuento.
b) Premier: 15% de descuento.
Si el monto de la compra no excede de 1000 pesos (ya con descuento) se aplica el descuento Normal o Premier; si el monto de la compra esta ente 1000 y 2000 se agrega un 10% de descuento; si el monto de la compra es mayor a 2000 entonces lo adicional sera 15% de descuento.
NOTA: El programa debe de recopilar la compra de 5 productos y determinar el descuento aplicado.

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

Proceso DescuentoPorTipoDeCliente

    Escribir Sin Saltar "Ingresa el valor de producto 1:";

    Leer producto_1;

    Escribir Sin Saltar "Ingresa el valor de producto 2:";

    Leer producto_2;

    Escribir Sin Saltar "Ingresa el valor de producto 3:";

    Leer producto_3;

    Escribir Sin Saltar "Ingresa el valor de producto 4:";

    Leer producto_4;

    Escribir Sin Saltar "Ingresa el valor de producto 5:";

    Leer producto_5;

    descuento-por-tipo-de-cliente;

    monto_de_la_compra <- producto_1+producto_2+producto_3+producto_4+producto_5;

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

    Escribir "    1.- Normales";

    Escribir "    2.- Premier";

    Escribir Sin Saltar "    :";

    Repetir

        Leer tipo_de_cliente;

        Si tipo_de_cliente<1 O tipo_de_cliente>2 Entonces

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

        FinSi

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

    Si tipo_de_cliente = 1 Entonces

        descuento <- monto_de_la_compra*0.1;

    SiNo

        descuento <- monto_de_la_compra*0.15;

    FinSi

    Si monto_de_la_compra>=1000 Y monto_de_la_compra<=2000 Entonces

        descuento <- monto_de_la_compra*0.1;

    FinSi

    Si monto_de_la_compra>2000 Entonces

        descuento <- monto_de_la_compra*0.15;

    FinSi

    total <- monto_de_la_compra-descuento;

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de descuento-por-tipo-de-cliente: ", descuento-por-tipo-de-cliente;

    Escribir "Valor de monto de la compra: ", monto_de_la_compra;

    Escribir "Valor de total: ", total;

FinProceso