-
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
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
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