-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Determinar el precio de un pasaje ida y vuelta en colectivo, conociendo la distancia a recorrer y sabiendo que si el número de días de estadía es superior a los 7 dias y la distancia superior a 800 km el pasaje tiene una reducción del 15%. El precio por km es de $1.20
- Calcular el precio del pasaje.
- Mostrar un mensaje de advertencia en caso de que la distancia a recorrer no sea mayor a 800 km o la estadía no sea menor a 7 días.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Proceso PrecioDePasajeEnColectivo
Escribir Sin Saltar "Ingresa el valor de dias de estadia:";
Leer dias_de_estadia;
Escribir Sin Saltar "Ingresa el valor de distancia en km:";
Leer distancia_en_km;
precio_del_pasaje <- distancia_en_km*1.2;
Si dias_de_estadia>7 Y distancia_en_km>800 Entonces
reduccion <- precio_del_pasaje*0.15;
SiNo
reduccion <- 0;
FinSi
precio_del_pasaje <- precio_del_pasaje-reduccion;
Si distancia_en_km>800 Entonces
Escribir "La distancia a recorrer no es mayor a 800 km.";
FinSi
Si dias_de_estadia<=7 Entonces
Escribir "La estadía no es menor a 7 días.";
FinSi
Escribir "Valor de precio del pasaje: ", precio_del_pasaje;
Escribir "Valor de reduccion: ", reduccion;
FinProceso
Escribir Sin Saltar "Ingresa el valor de dias de estadia:";
Leer dias_de_estadia;
Escribir Sin Saltar "Ingresa el valor de distancia en km:";
Leer distancia_en_km;
precio_del_pasaje <- distancia_en_km*1.2;
Si dias_de_estadia>7 Y distancia_en_km>800 Entonces
reduccion <- precio_del_pasaje*0.15;
SiNo
reduccion <- 0;
FinSi
precio_del_pasaje <- precio_del_pasaje-reduccion;
Si distancia_en_km>800 Entonces
Escribir "La distancia a recorrer no es mayor a 800 km.";
FinSi
Si dias_de_estadia<=7 Entonces
Escribir "La estadía no es menor a 7 días.";
FinSi
Escribir "Valor de precio del pasaje: ", precio_del_pasaje;
Escribir "Valor de reduccion: ", reduccion;
FinProceso