经典求圆周率的算法 (2001年4月13日).txt

delphi 编程技巧

经典求圆周率的算法 (2001年4月13日) 

网友更新  分类:数据库   作者:外国人  推荐:Boolean   阅读次数:256  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
include 
long a=10000,b,c=2800,d,e,f[2801],g;
main()
{
for(;b-c;) f[b++]=a/5; 

for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a) 

for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);

}