7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-12-15
- 打赏
- 举报
z(k)=f(z(k-1))
怎样求z？
z(0)是已知的
------------------
递归
怎样求z？
z(0)是已知的
------------------
递归
northwolves 2005-12-15
- 打赏
- 举报
用迭代法求某个数的平方根：
Private Function Fsqrt( a As single ) AS single
Dim x0 As Single, x1 As Single
x0 =a/2 '迭代初值
x1 = 0.5*(x0 + a/x0)
Do
x0 = x1 '为下一次迭代作准备
x1 = 0.5*(x0 + a/x0)
Loop While Abs(x1 - x0) > 0.00001
Fsqrt=x1
End Function
Private Function Fsqrt( a As single ) AS single
Dim x0 As Single, x1 As Single
x0 =a/2 '迭代初值
x1 = 0.5*(x0 + a/x0)
Do
x0 = x1 '为下一次迭代作准备
x1 = 0.5*(x0 + a/x0)
Loop While Abs(x1 - x0) > 0.00001
Fsqrt=x1
End Function
guoguo1982 2005-12-15
- 打赏
- 举报
不明白,没看懂题!
babymm 2005-12-14
- 打赏
- 举报
没人回答啊？高手帮忙。。。。江湖救急。。。。
