Reporte de estudiantes en un museo en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Registrar la cantidad de estudiantes que asisten a un museo (escolares, de institutos o universitarios). Por cada estudiante se ingresará el tipo de estudiante y el turno (mañana, tarde o noche)
Estudiante | Cobro
Escolar | $10
De instituto | $18
Universitario | $20
Mostrar un reporte con:
- El total de pagos recaudado por turno.
- El total de pagos recaudado por tipo de estudiante.
- La cantidad de estudiantes por tipo.

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

Proceso ReporteDeEstudiantesEnUnMuseo

    cantidad_de_institutos <- 0;

    cantidad_escolares <- 0;

    cantidad_universitarios <- 0;

    recaudado_de_institutos <- 0;

    recaudado_escolares <- 0;

    recaudado_manana <- 0;

    recaudado_noche <- 0;

    recaudado_tarde <- 0;

    recaudado_universitarios <- 0;

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

    Leer n;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        cobro <- 0;

        Escribir "Selecciona el valor de tipo.";

        Escribir "    1.- Escolares";

        Escribir "    2.- De institutos";

        Escribir "    3.- Universitarios";

        Escribir Sin Saltar "    :";

        Repetir

            Leer tipo;

            Si tipo<1 O tipo>3 Entonces

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

            FinSi

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

        Escribir "Selecciona el valor de turno.";

        Escribir "    1.- Mañana";

        Escribir "    2.- Tarde";

        Escribir "    3.- Noche";

        Escribir Sin Saltar "    :";

        Repetir

            Leer turno;

            Si turno<1 O turno>3 Entonces

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

            FinSi

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

        Si tipo = 1 Entonces

            cobro <- 10;

            recaudado_escolares <- recaudado_escolares+cobro;

            cantidad_escolares <- cantidad_escolares+1;

        FinSi

        Si tipo = 2 Entonces

            cobro <- 18;

            recaudado_de_institutos <- recaudado_de_institutos+cobro;

            cantidad_de_institutos <- cantidad_de_institutos+1;

        FinSi

        Si tipo = 3 Entonces

            cobro <- 20;

            recaudado_universitarios <- recaudado_universitarios+cobro;

            cantidad_universitarios <- cantidad_universitarios+1;

        FinSi

        Si turno = 1 Entonces

            recaudado_manana <- recaudado_manana+cobro;

        FinSi

        Si turno = 2 Entonces

            recaudado_tarde <- recaudado_tarde+cobro;

        FinSi

        Si turno = 3 Entonces

            recaudado_noche <- recaudado_noche+cobro;

        FinSi

        Escribir "Valor de cobro: ", cobro;

        Escribir "";

    FinPara

    Escribir "Valor de cantidad de institutos: ", cantidad_de_institutos;

    Escribir "Valor de cantidad escolares: ", cantidad_escolares;

    Escribir "Valor de cantidad universitarios: ", cantidad_universitarios;

    Escribir "Valor de recaudado de institutos: ", recaudado_de_institutos;

    Escribir "Valor de recaudado escolares: ", recaudado_escolares;

    Escribir "Valor de recaudado manana: ", recaudado_manana;

    Escribir "Valor de recaudado noche: ", recaudado_noche;

    Escribir "Valor de recaudado tarde: ", recaudado_tarde;

    Escribir "Valor de recaudado universitarios: ", recaudado_universitarios;

FinProceso