-
Lenguaje
Pascal
-
Descripción
Represente un algoritmo mediante un diagrama de flujo y el pseudocódigo para determinar a qué lugar podrá ir de vacaciones una persona, considerando que la línea de autobuses “La tortuga” cobra por kilómetro recorrido. Se debe considerar el costo del pasaje tanto de ida, como de vuelta; los datos que se conocen y que son fijos son: México, 750 km; P.V., 800 km; Acapulco, 1200 km, y Cancún, 1800 km. También se debe considerar la posibilidad de tener que quedarse en casa.
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 LineaDeAutobusesLaTortuga;
uses crt;
var costo_por_km, presupuesto : real;
begin
write ('Ingresa el valor de costo por km: ');
readln (costo_por_km);
write ('Ingresa el valor de presupuesto: ');
readln (presupuesto);
if costo_por_km*750*2<=presupuesto then
begin
writeln ('M'#130'xico');
end
else
begin
writeln ('Quedarse en casa');
end;
if costo_por_km*800*2<=presupuesto then
begin
writeln ('Acapulco');
end;
if costo_por_km*1200*2<=presupuesto then
begin
writeln ('Puerto Vallarta');
end;
if costo_por_km*1800*2<=presupuesto then
begin
writeln ('Canc'#163'n');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_por_km, presupuesto : real;
begin
write ('Ingresa el valor de costo por km: ');
readln (costo_por_km);
write ('Ingresa el valor de presupuesto: ');
readln (presupuesto);
if costo_por_km*750*2<=presupuesto then
begin
writeln ('M'#130'xico');
end
else
begin
writeln ('Quedarse en casa');
end;
if costo_por_km*800*2<=presupuesto then
begin
writeln ('Acapulco');
end;
if costo_por_km*1200*2<=presupuesto then
begin
writeln ('Puerto Vallarta');
end;
if costo_por_km*1800*2<=presupuesto then
begin
writeln ('Canc'#163'n');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.