-
Lenguaje
Pascal
-
Descripción
Una compañía de alquiler de automóviles sin conductor desea calcular y mostrar lo que debe pagar cada cliente, de acuerdo a las siguientes condiciones:
a) Si no se rebasan los 300 km, se cancelan 5000 bolívares.
b) Si la distancia recorrida es superior a 300 km.
1) Pero inferior a 1000 se cobran 5000 bolívares más 200 bolívares por cada kilómetro superior a 300.
2) Si es superior a 1000 se cobran 5000 bolívares bolívares más 200 bolívares por cada kilómetro, para la distancia entre 300 y 1000 kilómetro y 150 bolívares por cada kilómetro para las distancias mayores a 1000.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program CompaniaDeAlquilerDeAutomoviles;
uses crt;
var distancia_recorrida_en_km, pago : integer;
begin
write ('Ingresa el valor de distancia recorrida en km: ');
readln (distancia_recorrida_en_km);
pago := 0;
if distancia_recorrida_en_km<=300 then
begin
pago := 5000;
end;
if (distancia_recorrida_en_km>300) and (distancia_recorrida_en_km<=1000) then
begin
pago := 5000+(distancia_recorrida_en_km-300)*200;
end;
if distancia_recorrida_en_km>1000 then
begin
pago := 5000+700*200+(distancia_recorrida_en_km-1000)*150;
end;
writeln ('Valor de pago: ', pago);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var distancia_recorrida_en_km, pago : integer;
begin
write ('Ingresa el valor de distancia recorrida en km: ');
readln (distancia_recorrida_en_km);
pago := 0;
if distancia_recorrida_en_km<=300 then
begin
pago := 5000;
end;
if (distancia_recorrida_en_km>300) and (distancia_recorrida_en_km<=1000) then
begin
pago := 5000+(distancia_recorrida_en_km-300)*200;
end;
if distancia_recorrida_en_km>1000 then
begin
pago := 5000+700*200+(distancia_recorrida_en_km-1000)*150;
end;
writeln ('Valor de pago: ', pago);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.