求 π 的高精度算法

[回马枪]

今天是圆周率π节 PI Day
VB/VFP 的精度只有18位
π 的算法或函数为
Set Decimals To 18
? Pi()
? ACOS(-1)
返回值是：3.141592653589793000
前60位是：3.141592653589793238462643383279502884197169399375105820974944
谁可以写个算法精度在60位之内的 PI 的 VFP 算法

[xuzuning]

下载一个名为"圆周率10000位.txt" fp = fopen("圆周率10000位.txt") fgets(fp, 1024) buf = fgets(fp, 100) pi = left(strt(buf, ' ', ''), 62) fclose(fp) 完工

[liups]

引用 2 楼 xuzuning 的回复:

下载一个名为"圆周率10000位.txt" fp = fopen("圆周率10000位.txt") fgets(fp, 1024) buf = fgets(fp, 100) pi = left(strt(buf, ' ', ''), 62) fclose(fp) 完工

高人啊！

[回马枪]

纪念314国际π节



.

[liups]

http://zh.wikipedia.org/wiki/%E5%9C%93%E5%91%A8%E7%8E%87

这只是一个数学问题，特别是60位之内，时间和空间效率也不重要了

[GBO]

额，怎么回不了？