Asistentes a un concierto en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

En un proceso repetitivo se registra a los asistentes a un concierto, por cada asistente se guarda: el género (Masculino, Femenino) y la ubicación de su butaca (General, Palco, VIP), se sabe que el precio de entrada es de $60, $80 y $100 de acuerdo a la ubicación de la butaca.
Calcular lo siguiente:
- Ingreso de datos.
- El monto total de los ingresos según ubicación de las butacas (General, Palco, VIP).
- La cantidad de asistentes según género (Masculino, Femenino).

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 AsistentesAUnConcierto

    asistentes_femeninos <- 0;

    asistentes_masculinos <- 0;

    ingresos_general <- 0;

    ingresos_palco <- 0;

    ingresos_vip <- 0;

    Repetir

        Escribir "Selecciona el valor de genero.";

        Escribir "    1.- Masculino";

        Escribir "    2.- Femenino";

        Escribir Sin Saltar "    :";

        Repetir

            Leer genero;

            Si genero<1 O genero>2 Entonces

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

            FinSi

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

        Escribir "Selecciona el valor de ubicacion.";

        Escribir "    1.- General";

        Escribir "    2.- Palco";

        Escribir "    3.- VIP";

        Escribir Sin Saltar "    :";

        Repetir

            Leer ubicacion;

            Si ubicacion<1 O ubicacion>3 Entonces

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

            FinSi

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

        entrada <- 0;

        Si ubicacion = 1 Entonces

            entrada <- 60;

            ingresos_general <- ingresos_general+entrada;

        FinSi

        Si ubicacion = 2 Entonces

            entrada <- 80;

            ingresos_palco <- ingresos_palco+entrada;

        FinSi

        Si ubicacion = 3 Entonces

            entrada <- 100;

            ingresos_vip <- ingresos_vip+entrada;

        FinSi

        Si genero = 1 Entonces

            asistentes_masculinos <- asistentes_masculinos+1;

        SiNo

            asistentes_femeninos <- asistentes_femeninos+1;

        FinSi

        Escribir "Valor de entrada: ", entrada;

        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 asistentes femeninos: ", asistentes_femeninos;

    Escribir "Valor de asistentes masculinos: ", asistentes_masculinos;

    Escribir "Valor de ingresos general: ", ingresos_general;

    Escribir "Valor de ingresos palco: ", ingresos_palco;

    Escribir "Valor de ingresos vip: ", ingresos_vip;

FinProceso