巧求π值

Author: 东东 Date: 1991-03-25

10 B=1:X=1
20 Y=(X↑2+3)↑.5
30 Z=3↑.5/y
40 A=(8-8*Z)↑.5*3*B
50 B=B*2
60 X=X*3↑.5/(Y+3↑.5)
70 PRINT "A=";A
80 GOTO 20
美国一大学生用计算机将园周率算到了小数点后上万位，这是众所周知的。而该程序若要在微机上如此，则需采取一些特殊措施，如引入大数据程序，防止浮点数太大，而造成误差等等。