Recaudación en una cadena de cines en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una cadena de cines tiene "n" clientes y cada uno tiene un tipo de tarjeta (Blak, Gold, Silver). Cada cliente un boleto que tiene 3 posibles precios (15, 20 o 25 pesos) para una función. Para cada cliente se debe ingresar precio de boleto comprado y su tipo de tarjeta.
1. Ingreso de datos
2. Calcular el total recaudado en la función.
3. Calcular total recaudado por cada de Tarjeta.

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

Proceso RecaudacionEnUnaCadenaDeCines

    recaudado_blak <- 0;

    recaudado_gold <- 0;

    recaudado_silver <- 0;

    total_recaudado <- 0;

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

    Leer n;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir "PROCESO ", i;

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

        Escribir "    1.- Blak";

        Escribir "    2.- Gold";

        Escribir "    3.- Silver";

        Escribir Sin Saltar "    :";

        Repetir

            Leer tipo_de_tarjeta;

            Si tipo_de_tarjeta<1 O tipo_de_tarjeta>3 Entonces

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

            FinSi

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

        Escribir "Selecciona el valor de precio del boleto.";

        Escribir "    1.- 15";

        Escribir "    2.- 20";

        Escribir "    3.- 25";

        Escribir Sin Saltar "    :";

        Repetir

            Leer precio_del_boleto;

            Si precio_del_boleto<1 O precio_del_boleto>3 Entonces

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

            FinSi

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

        precio <- 0;

        Si precio_del_boleto = 1 Entonces

            precio <- 15;

        FinSi

        Si precio_del_boleto = 2 Entonces

            precio <- 20;

        FinSi

        Si precio_del_boleto = 3 Entonces

            precio <- 25;

        FinSi

        Si tipo_de_tarjeta = 1 Entonces

            recaudado_blak <- recaudado_blak+precio;

        FinSi

        Si tipo_de_tarjeta = 2 Entonces

            recaudado_gold <- recaudado_gold+precio;

        FinSi

        Si tipo_de_tarjeta = 3 Entonces

            recaudado_silver <- recaudado_silver+precio;

        FinSi

        total_recaudado <- total_recaudado+precio;

        Escribir "Valor de precio: ", precio;

        Escribir "";

    FinPara

    Escribir "Valor de recaudado blak: ", recaudado_blak;

    Escribir "Valor de recaudado gold: ", recaudado_gold;

    Escribir "Valor de recaudado silver: ", recaudado_silver;

    Escribir "Valor de total recaudado: ", total_recaudado;

FinProceso