[Ajuda] Calculadora simples

LFReq

1st Folding then Sex
Boas,
Estou a tentar fazer uma calculadora simples em pascal para somar 2 numeros inteiros mas não estou a conseguir, consigo inserir os dois numeros mas depois não me dá os valores no entanto o programa diz que não tenho erros.

Aqui vai o código:

Código:
Program somar;

uses crt;

Var numero_1,numero_2,soma: integer;

Begin

ClrScr;
Write('Numero 1:');
Readln(numero_1);

Write('Numero 2:');
Readln(numero_2);

soma:=numero_1+numero_2;
Writeln('Resultado:' ,soma);

End.

Digam o que está mal.
 
Program somar;

uses crt;

Var n1,n2,soma: integer;

Begin

ClrScr;
Write('Numero 1:');
Readln(n1);

Write('Numero 2:');
Readln(n2);

soma:=(n1+n2);
Writeln('Resultado: ',soma);

End.
as alteraçoes q fiz podem considerar-se "estupidas" pk nao devem fazer nada, pois nada foi alterado, mas nunca se sabe.

Tem cuidado ao introduzires os numeros, pois podes estar a meter numeros nao inteiros.

edit: experimenta o read e vez do readln, realmente n tou a ver o erro, mas tmb n sou pro nisto.
 
Última edição:
Program somar;

uses crt;

Var numero_1,numero_2,soma,aux: integer;

Begin

ClrScr;
Write('Numero 1:');
Readln(numero_1);

Write('Numero 2:');
Readln(numero_2);

soma:=numero_1+numero_2;
Writeln('Resultado:' ,soma);
Readln(aux);


End.




Tenta ver se assim vês algo, eu não estou familiarizado com pascal mas suponho que o teu problema seja tipo c, ou seja, isso executa te o programa todo faz a escrita do resultado e sai provavelmente, o que deves fazer é obrigares o programa a ficar à espera de algo Readln(aux), o que eu fiz foi basicamente por à espera de um valor auxiliar ao qual não fazes nada, isto para apenas veres o resultado!
 
Última edição:
Program somar;

uses crt;

Var numero_1,numero_2,soma,aux: integer;

Begin

ClrScr;
Write('Numero 1:');
Readln(numero_1);

Write('Numero 2:');
Readln(numero_2);

soma:=numero_1+numero_2;
Writeln('Resultado:' ,soma);
Readln(aux);


End.




Tenta ver se assim vês algo, eu não estou familiarizado com pascal mas suponho que o teu problema seja tipo c, ou seja, isso executa te o programa todo faz a escrita do resultado e sai provavelmente, o que deves fazer é obrigares o programa a ficar à espera de algo Readln(aux), o que eu fiz foi basicamente por à espera de um valor auxiliar ao qual não fazes nada, isto para apenas veres o resultado!

Era quase isso.
Já resolvi o problema já tenho a calculadora pronta.

Aqui vai o código fonte:

Código:
Program somar;

uses crt;

Var n1,n2,soma: integer;

Begin

ClrScr;
Write('Numero 1:');
Readln(n1);

Write('Numero 2:');
Readln(n2);

soma:=(n1+n2);
Writeln('Resultado:',soma);

Readkey;

End.

Obrigado a quem ajudou ;)
 
Back
Topo