1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[Ajuda] Calculadora simples

Discussão em 'Programação' iniciada por LFReq, 23 de Outubro de 2008. (Respostas: 3; Visualizações: 672)

  1. LFReq

    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.
     
  2. Guimaraez

    Guimaraez Power Member

    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: 23 de Outubro de 2008
  3. S0ul

    S0ul Power Member

    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: 23 de Outubro de 2008
  4. LFReq

    LFReq 1st Folding then Sex

    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 ;)
     

Partilhar esta Página