-
Lenguaje
Pascal
-
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
22
23
24
25
26
27
28
29
30
31
32
33
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
program PrecioDePasajeEnColectivo;
uses crt;
var dias_de_estadia, distancia_en_km, precio_del_pasaje, reduccion : real;
begin
write ('Ingresa el valor de dias de estadia: ');
readln (dias_de_estadia);
write ('Ingresa el valor de distancia en km: ');
readln (distancia_en_km);
precio_del_pasaje := distancia_en_km*1.2;
if (dias_de_estadia>7) and (distancia_en_km>800) then
begin
reduccion := precio_del_pasaje*0.15;
end
else
begin
reduccion := 0;
end;
precio_del_pasaje := precio_del_pasaje-reduccion;
if distancia_en_km>800 then
begin
writeln ('La distancia a recorrer no es mayor a 800 km.');
end;
if dias_de_estadia<=7 then
begin
writeln ('La estad'#161'a no es menor a 7 d'#161'as.');
end;
writeln ('Valor de precio del pasaje: ', precio_del_pasaje:0:6);
writeln ('Valor de reduccion: ', reduccion:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var dias_de_estadia, distancia_en_km, precio_del_pasaje, reduccion : real;
begin
write ('Ingresa el valor de dias de estadia: ');
readln (dias_de_estadia);
write ('Ingresa el valor de distancia en km: ');
readln (distancia_en_km);
precio_del_pasaje := distancia_en_km*1.2;
if (dias_de_estadia>7) and (distancia_en_km>800) then
begin
reduccion := precio_del_pasaje*0.15;
end
else
begin
reduccion := 0;
end;
precio_del_pasaje := precio_del_pasaje-reduccion;
if distancia_en_km>800 then
begin
writeln ('La distancia a recorrer no es mayor a 800 km.');
end;
if dias_de_estadia<=7 then
begin
writeln ('La estad'#161'a no es menor a 7 d'#161'as.');
end;
writeln ('Valor de precio del pasaje: ', precio_del_pasaje:0:6);
writeln ('Valor de reduccion: ', reduccion:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.