-
Lenguaje
Pascal
-
Descripción
Una compañía dedicada al alquiler de automóviles cobra un monto fijo de $350,000 para los primeros 300 km de recorrido. Para más de 300 km y hasta 1000 km, cobra un monto adicional de $10,000 por cada kilómetro en exceso sobre 300. Para más de 1000 km cobra un monto adicional de $10,000 por cada kilómetro en exceso sobre 1000. Los precios ya incluyen el 20% del impuesto general a las ventas, IVA. Diseñe un algoritmo que determine el monto a pagar por el alquiler de un vehículo y el monto incluido del impuesto.
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
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
program AlquilerDeAutomoviles;
uses crt;
var km_de_recorrido, monto_a_pagar, monto_del_impuesto, monto_fijo : real;
begin
write ('Ingresa el valor de km de recorrido: ');
readln (km_de_recorrido);
monto_a_pagar := 0;
monto_fijo := 350000;
if km_de_recorrido<=300 then
begin
monto_a_pagar := monto_fijo;
end;
if (km_de_recorrido>300) and (km_de_recorrido<=1000) then
begin
monto_a_pagar := monto_fijo+(km_de_recorrido-300)*10000;
end;
if km_de_recorrido>1000 then
begin
monto_a_pagar := monto_fijo+700*15+(km_de_recorrido-1000)*10000;
end;
monto_del_impuesto := monto_a_pagar/1.2*0.2;
writeln ('Valor de monto a pagar: ', monto_a_pagar:0:6);
writeln ('Valor de monto del impuesto: ', monto_del_impuesto:0:6);
writeln ('Valor de monto fijo: ', monto_fijo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var km_de_recorrido, monto_a_pagar, monto_del_impuesto, monto_fijo : real;
begin
write ('Ingresa el valor de km de recorrido: ');
readln (km_de_recorrido);
monto_a_pagar := 0;
monto_fijo := 350000;
if km_de_recorrido<=300 then
begin
monto_a_pagar := monto_fijo;
end;
if (km_de_recorrido>300) and (km_de_recorrido<=1000) then
begin
monto_a_pagar := monto_fijo+(km_de_recorrido-300)*10000;
end;
if km_de_recorrido>1000 then
begin
monto_a_pagar := monto_fijo+700*15+(km_de_recorrido-1000)*10000;
end;
monto_del_impuesto := monto_a_pagar/1.2*0.2;
writeln ('Valor de monto a pagar: ', monto_a_pagar:0:6);
writeln ('Valor de monto del impuesto: ', monto_del_impuesto:0:6);
writeln ('Valor de monto fijo: ', monto_fijo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.