急急急！用VFP编写计算根号2的结果，小数点保留1000位，，，谢谢啦

Question

刚学VFP，求高手指导、把源代码程序贴出来，谢谢
对了、计算根号2，结果是无限不循环小数、能不能让计算机无限的计算小数点后面的位数，直到你要求停止为止？？？听说过计算机能算，但不知道怎么操作，求思路，谢谢

Answer 1

我曾经编了个，但只能算到300位左右，无法满足你的要求

追问

是不是位数越多越复杂？ 300位的也给我吧，我学习一下，呵呵

追答

Clear All
Clear
Input '输入求开方的数：' To X
If X=TEMP
Y=Y+Str(J,1)
Z=Z+Str(J,1)
X=(X-TEMP)*100
Exit
Endif
Endfor
If X=0
Exit
Endif
Endfor
?Z

Answer 2

VFP中本身就有求平方根的函数：SQRT() ，但最多只能显示18位小数。。