派.cpp

一个求pi的源程序

#include <stdio.h> 
void main()
{
 long a,b,c,d,e,f[8401],g;
 
	a=10000;
	b=0;
	e=0;
	c=8400;
  /*8400/14=600;600*4=2400显示2400位*/
 
 for(;b<c;)
	f[b++]=a/5;
 
 for(;c>0;c-=14){
	d=0;
	g=c*2; 
	for(b=c;b>0;  d*=b){
		d+=f[b]*a;
		g--;
		f[b]=d%g;
		d/=g;
		g--;
		b--;
		if(b==0)break;
	}
	printf("%.4d",e+d/a);
	e=d%a;
 }
 }