VBS实现数学书上的开根思路

523066680

哈数学必修5有一个求根号2的流程图，我觉得不错，写成vbs贴上来了

a=1
b=0.1
do
if (a+b)^2 > 2 then
    msgbox a
    b=b/10
else 
    a=a+b
end if
loop until b<0.000001
msgbox a & "<------>" & sqr(2)
复制代码

[ 本帖最后由 523066680 于 2008-9-6 10:38 编辑 ]

523066680

用批处理做就稍有些吃力咯……我下次上网是在下个星期呢、

收回上面的话 用批处理做应该也不错的，大伙儿试试吧 哈 谢谢batcher的加分
我去翻翻看 书上还有一些不错的算法流程图的

[ 本帖最后由 523066680 于 2008-9-6 14:33 编辑 ]

523066680

书上还有求圆周率的  方法用祖冲之的那个………有些长 我没看完

523066680

某天看到牛顿迭代法了……