Questão de Pascalzim

[igormiranda]

Galera se alguém poder me ajudar, ficarei GRATO !

Não estou conseguindo descobrir onde está o erro no meu programa abaixo, quem poder dar uma força... Ficarei feliz !

Program ValorPi;
{Tabula o valor de Pi em função da precisão utilizada no cálculo.}
  procedure CalculaNumeroPi (Precisao, ValorPi, NT :real)  ;
  var 
  N{Assume valores ímpares para cálculo do denominador da série}  :integer;   
  Sinal {Usado para alternar o sinal de cada termo da série}    : real;


  begin
    ValorPi:= (4);
    NT:= (1) ;
    N:= (3)   ;
    Sinal:= (-1)  ;
       repeat 
           	begin
       	    ValorPi:=(ValorPi + (( (4)/(N)) * Sinal ) )      ;
            NT:= (NT + 1);
            N:= (N+2)  ;
            Sinal := (-Sinal);
            End;
       until  ( (4)/(N) )    >  (Precisao) ;       {quando o termo a ser acumulado é menor que a precisão}


  End;

var Ntermos {Numero de termos utilizados no cálculo de Pi para atingir a Precisão dada} :real;
    Pi{Valor aproximado para Pi}:real   ;
    Precisao {precisão para o cálculo de valor de Pi}   :real;

  Begin
        clrscr;

            Precisao := (exp( (-1) * ln(10)));
              repeat 
                 begin
                  CalculaNumeroPi (Precisao, Pi, Ntermos);
                  writeln (Precisao, Pi, Ntermos);
                  Precisao:= (Precisao * (exp( (-1) * ln(10)))     )
                  end;
              until (Precisao > (exp( -1 * ln(10))));

 	    writeLn;
    	 writeln;
	     writeln;
	     write( '... Tecle algo para encerrar...' );
	     readKey;

End.

[LNW]

Igor,

A ideia é a mesma do seu outro tópico. Basta seguir a listagem. Naquela função do cálculo de Pi, você poderá usar o repeat ou o while, já que a interrupção ocorre ali bem no início. Acho interessante manter esse teste no início.

Outra coisa, não é necessário fazer aquele cálculo de potência.. nesse caso, vai deixar o programa ainda mais lento (o programa executa muitas iterações). Defina todas as variáveis como real.

e

Então, sugiro usar essas constantes diretamente.

Tente implementar as sugestões propostas e veja o que consegue.

[]'s

LNW