Pasajeros que pasan por un peaje en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Permita registrar la cantidad de pasajeros que pasan por un peaje en ómnibus, minivans y combis. Por cada vehículo se ingresará el tipo de vehículo y la cantidad de pasajeros y el turno (mañana, tarde y noche)
Vehículo | Peaje
Ómnibus | $15
Minivan | $8
Combi | $10
- El total de peajes por turno.
- El total de peajes por vehículo.
- La cantidad de vehículos por tipo.
- El promedio total de los peajes.

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
90
91
92
93

Proceso PasajerosQuePasanPorUnPeaje

    peajes <- 0;

    vehiculos_por_combi <- 0;

    vehiculos_por_minivan <- 0;

    vehiculos_por_omnibus <- 0;

    peajes_de_combis <- 0;

    peajes_de_la_manana <- 0;

    peajes_de_la_noche <- 0;

    peajes_de_la_tarde <- 0;

    peajes_de_minivans <- 0;

    peajes_de_omnibus <- 0;

    promedio_de_peajes <- 0;

    total_de_pasajeros <- 0;

    total_de_peajes <- 0;

    Repetir

        Escribir Sin Saltar "Ingresa el valor de cantidad de pasajeros:";

        Leer cantidad_de_pasajeros;

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

        Escribir "    1.- Ómnibus";

        Escribir "    2.- Minivan";

        Escribir "    3.- Combi";

        Escribir Sin Saltar "    :";

        Repetir

            Leer tipo_de_vehiculo;

            Si tipo_de_vehiculo<1 O tipo_de_vehiculo>3 Entonces

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

            FinSi

        Hasta Que tipo_de_vehiculo>=1 Y tipo_de_vehiculo<=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;

        peaje <- 0;

        Si tipo_de_vehiculo = 1 Entonces

            peaje <- 15*cantidad_de_pasajeros;

            peajes_de_omnibus <- peajes_de_omnibus+peaje*cantidad_de_pasajeros;

            vehiculos_por_omnibus <- vehiculos_por_omnibus+1;

        FinSi

        Si tipo_de_vehiculo = 2 Entonces

            peaje <- 8*cantidad_de_pasajeros;

            peajes_de_minivans <- peajes_de_minivans+peaje*cantidad_de_pasajeros;

            vehiculos_por_minivan <- vehiculos_por_minivan+1;

        FinSi

        Si tipo_de_vehiculo = 3 Entonces

            peaje <- 10*cantidad_de_pasajeros;

            peajes_de_combis <- peajes_de_combis+peaje*cantidad_de_pasajeros;

            vehiculos_por_combi <- vehiculos_por_combi+1;

        FinSi

        Si turno = 1 Entonces

            peajes_de_la_manana <- peajes_de_la_manana+peaje;

        FinSi

        Si turno = 2 Entonces

            peajes_de_la_tarde <- peajes_de_la_tarde+peaje;

        FinSi

        Si turno = 3 Entonces

            peajes_de_la_noche <- peajes_de_la_noche+peaje;

        FinSi

        total_de_peajes <- total_de_peajes+peaje*cantidad_de_pasajeros;

        total_de_pasajeros <- total_de_pasajeros+cantidad_de_pasajeros;

        peajes <- peajes+1;

        Escribir "Valor de peaje: ", peaje;

        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 peajes = 0 Entonces

        promedio_de_peajes <- 0;

    SiNo

        promedio_de_peajes <- total_de_peajes/peajes;

    FinSi

    Escribir "Valor de peajes: ", peajes;

    Escribir "Valor de vehiculos por combi: ", vehiculos_por_combi;

    Escribir "Valor de vehiculos por minivan: ", vehiculos_por_minivan;

    Escribir "Valor de vehiculos por omnibus: ", vehiculos_por_omnibus;

    Escribir "Valor de peajes de combis: ", peajes_de_combis;

    Escribir "Valor de peajes de la manana: ", peajes_de_la_manana;

    Escribir "Valor de peajes de la noche: ", peajes_de_la_noche;

    Escribir "Valor de peajes de la tarde: ", peajes_de_la_tarde;

    Escribir "Valor de peajes de minivans: ", peajes_de_minivans;

    Escribir "Valor de peajes de omnibus: ", peajes_de_omnibus;

    Escribir "Valor de promedio de peajes: ", promedio_de_peajes;

    Escribir "Valor de total de pasajeros: ", total_de_pasajeros;

    Escribir "Valor de total de peajes: ", total_de_peajes;

FinProceso