算圆周率的程序[转贴]

wuli8316

　　真的好难哦　　这是编程吗　　还是在玩数字游戏啊

keldy

<>理解这个,真的比较的累,但对编程来说,这可以算是经典了,~~</P>
<>但我们在实际编程中,却用不到~</P>

asweisun

<> 呵呵 怪c程序</P>
<>有创意！只可惜机器吃不消！</P>

gaoqiguan

<><FONT face="MS Shell Dlg">#include "stdio.h" <BR>long a=10000, b, c=28000, d, e, f[28010], g; <BR><BR><BR>void main() <BR>{ <BR>for( ;b-c; ) f[b++] =a/5; <BR><BR><BR>for( ; d=0, g=c*2; c-=14,printf("%.4d",e+d/a),e=d%a) <BR>for(b=c; d+=f*a,f =d%--g,d/=g--,--b; d*=b) ; <BR>} </FONT></P>
<><FONT face="MS Shell Dlg">我想知道这个程序的数学原理(使用的什么数学公式)和算法原理(如何实现此公式,以及保证精度, 我的邮箱是   <a href="mailtgaoqiguan03@163.com" target="_blank" >gaoqiguan03@163.com</A>      有 知道的吗?    请告诉我一下,小弟在这谢了!~~</FONT></P>
<><FONT face="MS Shell Dlg"></FONT> </P>

YiDie

<>牛！真牛！！</P>
<>我用VB按照这算法改编的如下：</P>
<>Option Explicit<BR>Dim a&amp;, b&amp;, c&amp;, d&amp;, e&amp;, f(28010) As Long, g&amp;</P>
<P>Private Sub Command1_Click()<BR>    While b &lt; c<BR>        f(b) = a / 5<BR>        b = b + 1<BR>    Wend<BR>    Do While c &gt; 0<BR>        d = 0<BR>        g = c * 2<BR>        b = c<BR>        Do<BR>            d = d + f(b) * a<BR>            g = g - 1<BR>            f(b) = d Mod g<BR>            d = Fix(d / g)<BR>            g = g - 1<BR>            b = b - 1<BR>            If b = 0 Then Exit Do<BR>            d = d * b<BR>            DoEvents<BR>        Loop<BR>        c = c - 14<BR>        Text1 = Text1 &amp; Fix(e + d / a)<BR>        e = d Mod a<BR>    Loop<BR>End Sub</P>
<P>Private Sub Form_Load()<BR>    a = 10000<BR>    b = 0<BR>    c = 28000<BR>    Text1 = ""<BR>End Sub<BR>速度还挺快！</P>

badboy1

[em17][em17][em17]<strong><em><font color="#33cc52">真牛</font></em></strong>

kelou

<p>怎么理解其中的算法?怎么想出来的.牛比!!</p>

zzylmt

这也叫c？？？？？？？？？

眼花落地

这是什么语言的程序？？？

gk_shumo

这个绝对有错误！