E aê cara!
Obrigaado pela resposta, mas eu já tinha até resolvido.
POrém essa sua resposta é bem válida pra mim, já que eu nem uso esse comondo no fim. O programa fica até mais legalcolocando ele.
writeln('FIM DO PROGRAMA - pressione ENTER para finalizar');readln;END.O que estava acontecendo era que antes de colocar "VAR" e depois as variáveis, tinha que ter o comando "uses crt", e antes de finalizar o programa com "END.", tinha que colocar "Readkey();" (NO PZIM, QUANDO COMEÇA A FAZER A ESTRUTURA DO PROGRAMA ELE SÓ VEM COM O:- PROGRAM - VAR - BEGIN E POR FIM O END; - JÁ O DEV ELE JÁ VEM COM ESSES E: PROGRAM - USES CRT; - VAR - BEGIN - READKEY(); E POR FIM O END.Eu nem sei explicar bem o que é desses (uses crt; e readkey();, por que é meu primeiro ano estudando programação, mas é isso aí.
ANTES
Program Q10;varkinicial,kfinal,kcombustivel,kganho: real;lucro, mconsumo, pcombustivel: real ;Beginwriteln('Digite o Km inicial: ');readln(kinicial);writeln('Digite o Km final: ');readln(kfinal);writeln('informe a quantidade de combustivel comsumida : ');readln(kcombustivel);writeln('qual o preço do combustivel?');readln(pcombustivel);writeln('Quanto voce ganhou ?: ');readln(kganho);lucro:=kganho-((kcombustivel)*pcombustivel);mconsumo:=(kfinal-kinicial)/kcombustivel;writeln('Media de consumo: ',mconsumo:0:1);writeln('Lucro: ',lucro:0:1);end.
DEPOIS:Program Q10;uses crt;varkinicial,kfinal,kcombustivel,kganho: real;lucro, mconsumo, pcombustivel: real ;Beginwriteln('Digite o Km inicial: ');readln(kinicial);writeln('Digite o Km final: ');readln(kfinal);writeln('informe a quantidade de combustivel comsumida : ');readln(kcombustivel);writeln('qual o preço do combustivel?');readln(pcombustivel);writeln('Quanto voce ganhou ?: ');readln(kganho);lucro:=kganho-((kcombustivel)*pcombustivel);mconsumo:=(kfinal-kinicial)/kcombustivel;writeln('Media de consumo: ',mconsumo:0:1);writeln('Lucro: ',lucro:0:1);writeln('FIM DO PROGRAMA - pressione ENTER para finalizar');readln; //com o uso do comando q você colocou, hehe! kkreadkey;end. Então, muito obrigado pela sua resposta.Um grande abraço! \o
Da uma olhada nesse programa aqui velho, se puder.
Ver se não tem nada que possa melhorar ou sei la.
Valeu
Lista de Exercícios.zip