一个求PI的外星程序
welcome to http://bccv.songstech.com/
# include "stdio.h"
long a=10000,b,c=2800,d,e,f[2801],g;
void 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);
}
能求900多位的PI值,速度还可以,给大家研究下.:)
注:转载文章需注明来源:VCer.net 文章地址:http://vcer.net/1243.html
如果你觉得VCer.net不错,而且你愿意为VCer.net捐赠一元钱,那么点击后面的捐赠按钮吧:)
A B C D E
armylau 于 2004-07-24 00:32:31.0 编辑 [回复该贴]