-
Lenguaje
Pascal
-
Descripción
Resuelva el problema que tienen en una gasolinera. Los surtidores de la misma registran lo que surten en galones, pero el precio de la gasolina está fijado en litros. El algoritmo debe calcular e imprimir lo que hay que cobrarle al cliente por los galones surtidos. Cada galón tiene 3.785 litros y el precio de cada litro es de $2,150.
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
program CobroPorGalonDeGasolina;
uses crt;
var cobro, galones_surtidos : real;
begin
write ('Ingresa el valor de galones surtidos: ');
readln (galones_surtidos);
cobro := galones_surtidos*3.785*2150;
writeln ('Valor de cobro: ', cobro:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cobro, galones_surtidos : real;
begin
write ('Ingresa el valor de galones surtidos: ');
readln (galones_surtidos);
cobro := galones_surtidos*3.785*2150;
writeln ('Valor de cobro: ', cobro:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.