delphi7中函数arctan怎样编写

Question

我是一个新手 对这反三角函数的编程不会
α=arctan(t/πd）这个公式
编写此公式的这段代码如下：
var
  k5,k6,k7,X: Extended;
begin
   k5:=StrToFloat(edit29.text) ;
   k6:=StrToFloat(edit30.text) ;
   X:=k5/(pi*k6);
   k7:=ArcTan(x);
   label124.Caption:=FloatToStr(k7);
end;
不知道什么地方出错了  这样计算出来的结果表示ArcTan函数无用，意思是这样编写出来的只是   X:=k5/(pi*k6)计算的结果 请大家帮我解决这问题

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
const pi = 3.141592;
var
  a,t,d :Extended;
begin
  t := 2123;
  d := 123;
  a := t/(pi*d);
  showmessage(floattostr(a)); //a=5.494081536...
  a := arctan(a);
  showmessage(floattostr(a));//a=1.3907532386...
end;
没有见到你说的问题，上面2个结果明显不同。

Answer 2

假如不是特别需要，一般来说， PI 这玩意在 delphi 中已经存在