-
Lenguaje
Pascal
-
Descripción
Chiclayo Taxi SAC, empresa de alquiler de automóviles cobra un monto fijo de $300 para los primeros 300 km de recorrido. Para más de 300 km y hasta 1000 km, cobra un monto adicional de $15 por cada kilómetro en exceso sobre 300. Para más de 1000 km cobra un monto adicional de $10 por cada kilómetro en exceso sobre 1000. Los precios ya incluyen el 18% del impuesto general a las ventas, IGV. Diseñe un algoritmo que determine el monto a pagar por el alquiler de un vehículo y el monto incluído 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 ChiclayoTaxiSac;
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 := 300;
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)*15;
end;
if km_de_recorrido>1000 then
begin
monto_a_pagar := monto_fijo+700*15+(km_de_recorrido-1000)*10;
end;
monto_del_impuesto := monto_a_pagar/1.18*0.18;
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 := 300;
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)*15;
end;
if km_de_recorrido>1000 then
begin
monto_a_pagar := monto_fijo+700*15+(km_de_recorrido-1000)*10;
end;
monto_del_impuesto := monto_a_pagar/1.18*0.18;
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.