自己对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);
				
				}