El usuario deberá indicar cuántos km recorrerá.
cada 5 km (a una velocidad constante,llamémosla crucero, menor a 110km/h) que el simulador reduzca 0,33l (l=litro) de
combustible.
Si es mayor (pero constante) que 110km/h, el gasto de combustible debería ser
0,5l por cada 5km.
El nivel de combustible deberá ser full (lleno), con 50l al iniciar el viaje.
necesario que se controle si el tanque alcanza para realizar el viaje propuesto
(y mediante una ventana emergente: indicar tal situación).
el ejercicio debe resolverse con for, while, o repeat a eleccion
f= fuel
fuel =contador
Código Delphi
[-] f:=50;
kmfinal:=0;
velc:=StrToInt(vel_C.caption);
kmar:=strToInt(km.caption);
if (velc <=110) then
begin
for fuel:=50 downto 0
do
repeat
f:=f-0.33;
resu:=kmar-5;
until f=0;
kmsr.text:= floatToStr(resu);
showmessage('sin combustible');
showmessage(floattostr(f));
end
else if (velc>110) then
begin
for fuel:=50 downto 0
do
repeat
f:=f-0.5;
resu:=kmar-5;
until f=0;
kmsr.text:= floatToStr(resu);
showmessage('sin combustible');
showmessage(floattostr(f));
end;
end;
entra en un bucle infinito.
me doy por vencido (por hoy)
agradezco su ayuda