凤 凤冠坡 Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-18 #1 以前我收集了一个，后来不知道怎么就删除了。 不是用反正切函数，而是用简单的几个数字那个方法， 请知情者提供。
S starpc Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-18 #2 //计算圆周率 Pi (π)值 procedure TForm1.Button2Click(Sender: TObject); var x,z:double; a,b:integer; begin x:=2;z:=2; a:=1;b:=3; while z>1e-15do begin z:= z*a/b; x:=x + z; inc(a); b:=b+2; end; showmessage(floattostr(x)); end;
//计算圆周率 Pi (π)值 procedure TForm1.Button2Click(Sender: TObject); var x,z:double; a,b:integer; begin x:=2;z:=2; a:=1;b:=3; while z>1e-15do begin z:= z*a/b; x:=x + z; inc(a); b:=b+2; end; showmessage(floattostr(x)); end;
凤 凤冠坡 Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-18 #3 问题是这样的结果 不是能够输出很多位小数的那个真实的结果啊
超 超级牛X Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-18 #4 http://www.jason314.com/ 印度人的公式最牛X
