数模论坛

 找回密码
 注-册-帐-号
搜索
热搜: 活动 交友 discuz
楼主: b

算圆周率的程序[转贴]

[复制链接]
发表于 2004-10-21 18:23:04 | 显示全部楼层
  真的好难哦  这是编程吗  还是在玩数字游戏啊
发表于 2005-8-22 01:40:50 | 显示全部楼层
<>理解这个,真的比较的累,但对编程来说,这可以算是经典了,~~</P>
<>但我们在实际编程中,却用不到~</P>
发表于 2005-8-26 22:54:27 | 显示全部楼层
<> 呵呵 怪c程序</P>
<>有创意!只可惜机器吃不消!</P>
发表于 2005-11-28 05:11:32 | 显示全部楼层

QQ93542343

<><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>
发表于 2006-3-23 23:41:11 | 显示全部楼层
<>牛!真牛!!</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>
发表于 2006-12-3 07:16:31 | 显示全部楼层
[em17][em17][em17]<strong><em><font color="#33cc52">真牛</font></em></strong>
发表于 2007-4-23 10:19:19 | 显示全部楼层
<p>怎么理解其中的算法?怎么想出来的.牛比!!</p>
发表于 2007-5-17 20:39:06 | 显示全部楼层
这也叫c?????????
发表于 2007-6-12 21:28:19 | 显示全部楼层
这是什么语言的程序???
发表于 2009-7-23 16:12:50 | 显示全部楼层
这个绝对有错误!
您需要登录后才可以回帖 登录 | 注-册-帐-号

本版积分规则

小黑屋|手机版|Archiver|数学建模网 ( 湘ICP备11011602号 )

GMT+8, 2022-11-29 05:30 , Processed in 0.063033 second(s), 13 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表