VB 用迭代發(fā)迭代法求x= .求平方根的迭代公式為：

VB 用迭代發(fā)迭代法求x= .求平方根的迭代公式為：
Xn+1=(1/2)(Xn+a/Xn)
要求：通過(guò)Inputbox（）函數(shù)輸入a的值,并以a作為x的初值,前后兩次求出的x的差的絕對(duì)值小于10-5即將結(jié)束迭代.

數(shù)學(xué)人氣：913 ℃時(shí)間：2020-05-27 00:39:30

優(yōu)質(zhì)解答

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 Sub

我來(lái)回答

類似推薦

猜你喜歡

精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲