-
Lenguaje
Pascal
-
Descripción
La compañía de autobuses de primera clase "Autobuses de Oriente" requiere determinar el costo que tendrá el boleto de un viaje sencillo, esto basado en los kilómetros por recorrer y en el costo por kilómetro. Cabe mencionar que por cada 40 kilómetros existe un descuento de $50.00.
Uso obligatorio de estructuras selectivas.
Kilometros | Precio
De 1 a 50 | $200.00
De 51 a 80 | $350.00
De 81 a 120 | $500.00
Más de 121 | $1000.00
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
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
program AutobusesDeOriente;
uses crt;
var costo_del_boleto, costo_por_kilometro, descuento, kilometros_por_recorrer : integer;
begin
write ('Ingresa el valor de kilometros por recorrer: ');
readln (kilometros_por_recorrer);
costo_por_kilometro := 0;
if (kilometros_por_recorrer>=1) and (kilometros_por_recorrer<=50) then
begin
costo_por_kilometro := 200;
end;
if (kilometros_por_recorrer>=51) and (kilometros_por_recorrer<=80) then
begin
costo_por_kilometro := 350;
end;
if (kilometros_por_recorrer>=81) and (kilometros_por_recorrer<=120) then
begin
costo_por_kilometro := 500;
end;
if kilometros_por_recorrer>=121 then
begin
costo_por_kilometro := 1000;
end;
costo_del_boleto := costo_por_kilometro*kilometros_por_recorrer;
descuento := 50*(kilometros_por_recorrer-kilometros_por_recorrer mod 40) div 40;
costo_del_boleto := costo_del_boleto-descuento;
writeln ('Valor de costo del boleto: ', costo_del_boleto);
writeln ('Valor de costo por kilometro: ', costo_por_kilometro);
writeln ('Valor de descuento: ', descuento);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_del_boleto, costo_por_kilometro, descuento, kilometros_por_recorrer : integer;
begin
write ('Ingresa el valor de kilometros por recorrer: ');
readln (kilometros_por_recorrer);
costo_por_kilometro := 0;
if (kilometros_por_recorrer>=1) and (kilometros_por_recorrer<=50) then
begin
costo_por_kilometro := 200;
end;
if (kilometros_por_recorrer>=51) and (kilometros_por_recorrer<=80) then
begin
costo_por_kilometro := 350;
end;
if (kilometros_por_recorrer>=81) and (kilometros_por_recorrer<=120) then
begin
costo_por_kilometro := 500;
end;
if kilometros_por_recorrer>=121 then
begin
costo_por_kilometro := 1000;
end;
costo_del_boleto := costo_por_kilometro*kilometros_por_recorrer;
descuento := 50*(kilometros_por_recorrer-kilometros_por_recorrer mod 40) div 40;
costo_del_boleto := costo_del_boleto-descuento;
writeln ('Valor de costo del boleto: ', costo_del_boleto);
writeln ('Valor de costo por kilometro: ', costo_por_kilometro);
writeln ('Valor de descuento: ', descuento);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.