Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Jadson Hugo

Código no pascal compilando mas com bug no executável

Recommended Posts

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.

 

Editado por dif
inserir o código usando o botão code

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×