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

__Sumous__ 2023-03-22 05:54

• 

  _ddihc_

  2023-03-22 06:32

  Private Sub Command1_Click()Dim x As Single, x0 As Single, x1 As Single, a As Singlea = Val(InputBox("请输入一个数a="))If Abs(a) < 0.000001 Thenx = 0Elsex0 = a / 2x1 = (2 / 3 * x0) + a / (3 * x0 ^ 2)Do While Abs(x1 - x0) > 0.00001x0 = x1x1 = (2 / 3 * x0) + a / (3 * x0 ^ 2)Loopx = x1End IfPrint a & "的立方根为;"; xEnd Sub

  ni yao gan ma?shen me yu yan?
  0 讨论(0)
  发布评论:

  提交评论

  ---

  •  加载中...