Arcotengente com resultado errado.

Delphi

16/11/2010

  Aos amigos do Delphi,     Estou tentando calcular o arcotangente mas o resultado dá incorreto.       procedure TRaizQuadr.BitBtn4Click(Sender: TObject);
var
T: Extended;
begin
   T := arcTan(6);
   edit8.Text := FloatToStr(T);
end;     Se puderem me ajudar desde já eu agradeço.
Valdir Lima

Valdir Lima

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

16/11/2010

Provavelmente o erro deve estar na funçao ARCTAN teria como vc postar ela aqui? Ou você ja realizou uma revisão nesta funçao?
GOSTEI 0
Pietro Braga

Pietro Braga

16/11/2010









 
Aos amigos do Delphi,
 
 
Estou tentando calcular o arcotangente mas o resultado dá incorreto.
 
 
 
procedure TRaizQuadr.BitBtn4Click(Sender: TObject);
var
T: Extended;
begin
   T := arcTan(6);
   edit8.Text := FloatToStr(T);
end;
 
 
Se puderem me ajudar desde já eu agradeço.
 

ArcTan é uma função da System...
Faça assim:
procedure TRaizQuadr.BitBtn4Click(Sender: TObject);
var
T: Single;
begin
   T := arcTan(6);
   edit8.Text := FloatToStr(T);
end;
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

16/11/2010









 
Aos amigos do Delphi,
 
 
Estou tentando calcular o arcotangente mas o resultado dá incorreto.
 
 
 
procedure TRaizQuadr.BitBtn4Click(Sender: TObject);
var
T: Extended;
begin
   T := arcTan(6);
   edit8.Text := FloatToStr(T);
end;
 
 
Se puderem me ajudar desde já eu agradeço.
 

ArcTan é uma função da System...
Faça assim:
procedure TRaizQuadr.BitBtn4Click(Sender: TObject);
var
T: Single;
begin
   T := arcTan(6);
   edit8.Text := FloatToStr(T);
end;


Muito interessante nao sabia disso.
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

16/11/2010

De uma olhada neste site e veja se ajuda. 
GOSTEI 0
Valdir Lima

Valdir Lima

16/11/2010

Ok, muito obrigado pela ajuda,   consegui montar a fórmula e funcionou.     Abraço.     Valdir Lima
GOSTEI 0
POSTAR