VB 用迭代发迭代法求x= .求平方根的迭代公式为：

问题描述：

VB 用迭代发迭代法求x= .求平方根的迭代公式为：
Xn+1=(1/2)(Xn+a/Xn)
要求：通过Inputbox（）函数输入a的值,并以a作为x的初值,前后两次求出的x的差的绝对值小于10-5即将结束迭代.
1个回答 分类：数学 2014-12-04

问题解答：

我来补答
Private Sub Command1_Click()
a = Val(InputBox("a="))
x = 0:y = a
Do While Abs(y - x) >= 0.00001
x = y
y = (x + a / x) / 2
Loop
Print y
End Su
 
 
展开全文阅读
剩余:2000字
上一页：立体几何的向量方法
下一页：明矾净水
也许感兴趣的知识