Promoción durante un mes en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una tienda tiene una promoción durante un mes. Para esto realiza un sorteo por cada cliente que realiza una compra. El sorteo consiste en generar un número aleatorio en el rango 1 - 5. Cada uno de ellos representa el porcentaje que se le descontará al cliente por su compra así:
Número % de descuento
1 10
2 20
3 30
4 40
5 50
Determinar:
a. El valor por descontar a un cliente por su compra
b. El valor que cliente debe pagar por su compra
c. El total de clientes con 10, 20, 30, 40 y 50 por ciento de descuento
d. El valor total descontado a los clientes
e. El valor total de las compras sin descuentos
f. El valor neto de las compras
g. El porcentaje que representan los clientes con 10, 20, 30, 40 y 50 porciento de descuento respecto al total de clientes.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

Proceso PromocionDuranteUnMes

    clientes <- 0;

    clientes_con_10 <- 0;

    clientes_con_20 <- 0;

    clientes_con_30 <- 0;

    clientes_con_40 <- 0;

    clientes_con_50 <- 0;

    compras_sin_descuentos <- 0;

    neto_de_las_compras <- 0;

    porcentaje_con_10 <- 0;

    porcentaje_con_20 <- 0;

    porcentaje_con_30 <- 0;

    porcentaje_con_40 <- 0;

    porcentaje_con_50 <- 0;

    total_descontado <- 0;

    Repetir

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

        Leer compra;

        numero_de_descuento <- 1+AZAR(5);

        descuento <- compra*numero_de_descuento/10;

        pago <- compra-descuento;

        clientes <- clientes+1;

        compras_sin_descuentos <- compras_sin_descuentos+compra;

        total_descontado <- total_descontado+descuento;

        neto_de_las_compras <- neto_de_las_compras+pago;

        Si numero_de_descuento = 1 Entonces

            clientes_con_10 <- clientes_con_10+1;

        FinSi

        Si numero_de_descuento = 2 Entonces

            clientes_con_20 <- clientes_con_20+1;

        FinSi

        Si numero_de_descuento = 3 Entonces

            clientes_con_30 <- clientes_con_30+1;

        FinSi

        Si numero_de_descuento = 4 Entonces

            clientes_con_40 <- clientes_con_40+1;

        FinSi

        Si numero_de_descuento = 5 Entonces

            clientes_con_50 <- clientes_con_50+1;

        FinSi

        Escribir "Valor de descuento: ", descuento;

        Escribir "Valor de numero de descuento: ", numero_de_descuento;

        Escribir "Valor de pago: ", pago;

        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'

    Si clientes = 0 Entonces

        porcentaje_con_10 <- 0;

    SiNo

        porcentaje_con_10 <- 100*clientes_con_10/clientes;

    FinSi

    Si clientes = 0 Entonces

        porcentaje_con_20 <- 0;

    SiNo

        porcentaje_con_20 <- 100*clientes_con_20/clientes;

    FinSi

    Si clientes = 0 Entonces

        porcentaje_con_30 <- 0;

    SiNo

        porcentaje_con_30 <- 100*clientes_con_30/clientes;

    FinSi

    Si clientes = 0 Entonces

        porcentaje_con_40 <- 0;

    SiNo

        porcentaje_con_40 <- 100*clientes_con_40/clientes;

    FinSi

    Si clientes = 0 Entonces

        porcentaje_con_50 <- 0;

    SiNo

        porcentaje_con_50 <- 100*clientes_con_50/clientes;

    FinSi

    Escribir "Valor de clientes: ", clientes;

    Escribir "Valor de clientes con 10: ", clientes_con_10;

    Escribir "Valor de clientes con 20: ", clientes_con_20;

    Escribir "Valor de clientes con 30: ", clientes_con_30;

    Escribir "Valor de clientes con 40: ", clientes_con_40;

    Escribir "Valor de clientes con 50: ", clientes_con_50;

    Escribir "Valor de compras sin descuentos: ", compras_sin_descuentos;

    Escribir "Valor de neto de las compras: ", neto_de_las_compras;

    Escribir "Valor de porcentaje con 10: ", porcentaje_con_10;

    Escribir "Valor de porcentaje con 20: ", porcentaje_con_20;

    Escribir "Valor de porcentaje con 30: ", porcentaje_con_30;

    Escribir "Valor de porcentaje con 40: ", porcentaje_con_40;

    Escribir "Valor de porcentaje con 50: ", porcentaje_con_50;

    Escribir "Valor de total descontado: ", total_descontado;

FinProceso