Registro de vehículos en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Registrar de vehículos (cantidad desconocida) que pasan por un peaje en autos, motocicletas y camiones. Por cada vehículo se ingresará el tipo de vehículo y el turno (mañana, tarde y noche).

Vehículo | Peaje
Auto | $5
Motocicleta | $3
Camión | $12

Mostrar un reporte con:
- El total de peajes por turno.
- El total de peajes por vehículo.
- La cantidad de vehículos 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

Proceso RegistroDeVehiculos

    autos <- 0;

    camiones <- 0;

    motocicletas <- 0;

    peajes_auto <- 0;

    peajes_camion <- 0;

    peajes_manana <- 0;

    peajes_motocicleta <- 0;

    peajes_noche <- 0;

    peajes_tarde <- 0;

    Repetir

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

        Escribir "    1.- Auto";

        Escribir "    2.- Motocicleta";

        Escribir "    3.- Camión";

        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;

        Si turno = 1 Entonces

            peajes_manana <- peajes_manana+1;

        FinSi

        Si turno = 2 Entonces

            peajes_tarde <- peajes_tarde+1;

        FinSi

        Si turno = 3 Entonces

            peajes_noche <- peajes_noche+1;

        FinSi

        Si tipo_de_vehiculo = 1 Entonces

            peajes_auto <- peajes_auto+1;

            autos <- autos+1;

        FinSi

        Si tipo_de_vehiculo = 2 Entonces

            peajes_motocicleta <- peajes_motocicleta+1;

            motocicletas <- motocicletas+1;

        FinSi

        Si tipo_de_vehiculo = 3 Entonces

            peajes_camion <- peajes_camion+1;

            camiones <- camiones+1;

        FinSi

        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 autos: ", autos;

    Escribir "Valor de camiones: ", camiones;

    Escribir "Valor de motocicletas: ", motocicletas;

    Escribir "Valor de peajes auto: ", peajes_auto;

    Escribir "Valor de peajes camion: ", peajes_camion;

    Escribir "Valor de peajes manana: ", peajes_manana;

    Escribir "Valor de peajes motocicleta: ", peajes_motocicleta;

    Escribir "Valor de peajes noche: ", peajes_noche;

    Escribir "Valor de peajes tarde: ", peajes_tarde;

FinProceso