• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    La compañía que gestiona la autopista ha decidido cambiar las tarifas de peaje. Estas tarifas dependen del tipo de vehículo (camión o automóvil) que desee utilizar la autopista, del número de pasajeros que lleve y de la hora del día: en las horas de alta congestión los automóviles con tres pasajeros o más no pagan peaje, los camiones pagan 50 euros; en las horas menos congestionadas el peaje para los automóviles es de 25 euros y para los camiones es de 30 euros independientemente del número de pasajeros. Escriba un programa que leyendo el tipo de vehículo, tipo de hora (si la hora es de alta congestión o no) y el número de pasajeros, calcule la tarifa que le debe cobrar a un vehículo.

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
Proceso TarifasDePeaje
    Escribir Sin Saltar "Ingresa el valor de numero de pasajeros:";
    Leer numero_de_pasajeros;
    Escribir Sin Saltar "Ingresa el valor de tarifa regular:";
    Leer tarifa_regular;
    Escribir "Selecciona el valor de tipo de vehiculo.";
    Escribir "    1.- camión";
    Escribir "    2.- automóvil";
    Escribir Sin Saltar "    :";
    Repetir
        Leer tipo_de_vehiculo;
        Si tipo_de_vehiculo<1 O tipo_de_vehiculo>2 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que tipo_de_vehiculo>=1 Y tipo_de_vehiculo<=2;
    Escribir "Selecciona el valor de tipo de hora.";
    Escribir "    1.- alta congestión";
    Escribir "    2.- menos congestión";
    Escribir Sin Saltar "    :";
    Repetir
        Leer tipo_de_hora;
        Si tipo_de_hora<1 O tipo_de_hora>2 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que tipo_de_hora>=1 Y tipo_de_hora<=2;
    peaje <- 0;
    Si tipo_de_hora = 1 Y tipo_de_vehiculo = 1 Y numero_de_pasajeros<3 Entonces
        peaje <- tarifa_regular;
    FinSi
    Si tipo_de_hora = 1 Y tipo_de_vehiculo = 2 Entonces
        peaje <- 50;
    FinSi
    Si tipo_de_hora = 2 Y tipo_de_vehiculo = 2 Entonces
        peaje <- 30;
    FinSi
    Si tipo_de_hora = 2 Y tipo_de_vehiculo = 1 Entonces
        peaje <- 25;
    FinSi
    Escribir "Valor de peaje: ", peaje;
FinProceso