Jump to content

Ajuda pascal


migmix
 Share

Recommended Posts

olá..

fiz hoje uma simples calculadora em pascal.. mas quando recebo o resultado fecha logo a janela do programa...

e sabem como fazer ....como em batch tipo:

//recebes o resultado

pause

goto :inicio

ou seja recebo o resultado e depois quando carrego no enter o programa volta ao inicio para poder fazer uma nova operação.

o codigo:

Program CalculadoraPascal ;
var
num1 :real;
num2 :real;
ope :char;
resultado :real;

Begin
WriteLN;
WriteLN;
WriteLN;
write ('Numero 1:');
readln (num1);
writeLN;
write ('Numero 2:');
readln (num2);
writeLN;
write ('Operador:');
readln (ope);
if ope='*' then
begin
resultado:=num1*num2;
writeln('Resposta: ', resultado);
end
else
if ope='+' then
begin
resultado:=num1+num2;
writeln('Resposta: ', resultado);

end
  else
if ope='-' then
begin
resultado:=num1-num2;
writeln('Resposta: ', resultado);

end
  else
if ope='/' then
begin
resultado:=num1/num2;
writeln('Resposta: ', resultado);
end
else
begin
writeLN('Operação Errada!', #7);
end;
readkey;
End.
Link to comment
Share on other sites

mas quando recebo o resultado fecha logo a janela do programa...

ou seja recebo o resultado e depois quando carrego no enter o programa volta ao inicio para poder fazer uma nova operação.

Podes meter toda a calculadora dentro de um ciclo Repeat... Until..., ou seja, a calculadora faz as suas contas até que seja premida uma tecla chave que faça o programa sair. Por exemplo, para sair do programa queres que se prima a tecla 0 (zero):

// declarações iniciais
var chave:char;

Begin
repeat
// calculadora
writeln('Prima zero para sair ou outra tecla para recomecar...');
chave:=readkey;
until (char(chave)='0');
End.

Alguma dúvida, dispara-a 🙂

Cumpz

Knowledge is free!

Link to comment
Share on other sites

Só por curiosidade, porque é que estás a usar o Pascalzim e não uma implementação completa da linguagem Pascal? (tens versões gratuitas do Delphi e tens o freepascal...)

O Pascalzim é uma implementação incompleta da linguagem e não está livre de erros, claro... Não é que isso afecte muito este teu projecto, mas não fazia mal nenhum utilizares outra implementação melhor.

Dá uma olhadela: Perguntas Frequentes (site do Pascalzim)

EDIT: além disso, estás a usar uma versão antiga do pascalzim, pela screenshot que vi

Link to comment
Share on other sites

Tanto o Delphi como o Freepascal implementam Object Pascal, que basicamente é o Pascal normal (o completo, claro) e extensões para programação orientada a objectos.

E ambos compilam executáveis nativos, ao contrário do Pascalzim... Como te disse, isto pode nem afectar o teu programa actual, mas é uma mudança que vale sempre a pena...

Nota: eu gostei bastante do Delphi 7 PE (Personal Edition). É gratuito (para uso pessoal, e tem algumas limitações) e só tens que te registar na Borland (penso que agora se chama "Embarcadero") e arranjar os ficheiros do setup algures, porque embora o registo seja gratuito, a Borland não distribui mais esses ficheiros... mas eles saíram em muitas revistas e assim, por isso não deve ser difícil de encontrar.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.