-
Lenguaje
Pascal
-
Descripción
Realizar un programa donde se haga el cálculo de la compra de gasolina en una estación de servicio (gasolinera) que vende galones y el precio es de $24.50 USD por galón. Dado el número de galones reporte la venta desplegado los datos en pantalla en litros y en pesos..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program GalonesDeGasolina;
uses crt;
var dolares, galones, litros, pesos : real;
begin
write ('Ingresa el valor de galones: ');
readln (galones);
litros := galones/3.785411784;
dolares := galones*24.5;
pesos := dolares*20.7402;
writeln ('Valor de dolares: ', dolares:0:6);
writeln ('Valor de litros: ', litros:0:6);
writeln ('Valor de pesos: ', pesos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var dolares, galones, litros, pesos : real;
begin
write ('Ingresa el valor de galones: ');
readln (galones);
litros := galones/3.785411784;
dolares := galones*24.5;
pesos := dolares*20.7402;
writeln ('Valor de dolares: ', dolares:0:6);
writeln ('Valor de litros: ', litros:0:6);
writeln ('Valor de pesos: ', pesos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.