Estou com problemas com esse código, ele compila e tudo mas não funciona corretamente quando o programa é executado. Alguém pode me ajudar :/ ( obs: sou iniciante ^^)
Código:
Program calculo e autonomia;
uses crt;
var escolha : integer;
carro : integer;
litros : real;{0,5}
calculo : real;
quilometros : real;
const calcular = 1;{1,0}
descobrir = 2;
gol = 1;
palio = 2;
sandero = 3;
fiat = 4;
corola = 5;
opala = 6;
Begin
writeln('Tecle ',calcular,' para calcular a autonomia');
writeln('Tecle ',descobrir,' para descobrir a autonomia');
readln(escolha);{0,5}
if (escolha <1) or (escolha >2) then begin
writeln('Opcao invalida!');
end;
if escolha = calcular then begin
writeln('Qual o carro voce deseja calcular?');
writeln('Tecle ',gol,' para o carro gol');
writeln('Tecle ',palio,' par o carro palio');
writeln('Tecla ',sandero,' para o carro sandero');
writeln('Tecle ',fiat,' para o carro fiat');
writeln('Tecla ',corola,' para o carro corola');
writeln('Tecle ',opala,' para o carro opala');
readln(carro);
if (carro <1) or (carro>6) then
writeln('Opção inválida');
end;
if carro = gol or palio or sandero or fiat or corola or opala then begin
writeln('Quantos litros tem o carro?');
readln(litros);
calculo := (litros*14);
if carro = palio then
calculo := (litros*13);
writeln('O maximo que ele poderá andar e ',calculo:6:2,'km ');
if carro = sandero then
calculo := (litros*13.5);
writeln('O maximo que ele poderá andar e ',calculo:6:2,'km ');
if carro = fiat then
calculo := (litros*16);
writeln('O maximo que ele poderá andar e ',calculo:6:2,'km ');
if carro = corola then
calculo := (litros*9);
writeln('O maximo que ele poderá andar e ',calculo:6:2,'km ');
if carro = opala then
calculo := (litros*2);
writeln('O maximo que ele poderá andar e ',calculo:6:2,' km ');
end;
if escolha = descobrir then //Esse "if" é o da parte de descobrir, continuando o algoritmo.
writeln('Quantos quilometros foram rodados?');
readln(quilometros);
writeln('Quantos litros você usou?');
readln(litros);
calculo :=(quilometros/litros);
writeln('Esse carro faz ',calculo:6:2,'km/l');
if calculo = 14 then begin
writeln('A autonomia equivale ao do carro gol');
if calculo = 13 then
writeln('A autonomia equivale ao do carro palio');
if calculo = 13.5 then
writeln('A autonomia equivale ao do carro sandero');
if calculo = 16 then
writeln('A autonomia equivale ao do carro fiat');
if calculo = 9 then
writeln('A autonomia equivale ao do carro corola');
if calculo = 2 then
writeln('A autonomia equivale ao do carro opala');
end;
readkey();
end.