用迭代法求x=开a的三次方,求立方根的迭代公式为Xi+1=2-查字典问答网
分类选择

来自丁海峡的问题

　　用迭代法求x=开a的三次方,求立方根的迭代公式为Xi+1=2/3Xi+a/用迭代法求x=开a的三次方,求立方根的迭代公式为Xi+1=2/3Xi+a/3Xi^2假定X的初值为a,迭代到|Xi+1-Xi|

　　用迭代法求x=开a的三次方,求立方根的迭代公式为Xi+1=2/3Xi+a/

　　用迭代法求x=开a的三次方,求立方根的迭代公式为

　　Xi+1=2/3Xi+a/3Xi^2

　　假定X的初值为a,迭代到|Xi+1-Xi|

1回答
2020-07-17 22:41
我要回答
请先登录
陈日新

　　PrivateSubCommand1_Click()

　　DimxAsSingle,x0AsSingle,x1AsSingle,aAsSingle

　　a=Val(InputBox("请输入一个数a="))

　　IfAbs(a)0.00001

　　x0=x1

　　x1=(2/3*x0)+a/(3*x0^2)

　　Loop

　　x=x1

　　EndIf

　　Printa&"的立方根为;";x

　　EndSub

2020-07-17 22:43:06

最新问答

推荐文章

猜你喜欢

附近的人在看

推荐阅读

拓展阅读

  • 大家都在看
  • 小编推荐
  • 猜你喜欢
    •
    
    请选择 取消