87
ActiveSheet.Cells(16, 1).Value = ""
While Abs(F(x)) > e
x = x - F(x) / F1(x)
k = k + 1
Wend
ActiveSheet.Cells(16, 1).Value = "Корень =" & Str(x) & " c точностью" & Str(e) & "
вычисленна " & Str(k) & " итерации"
k = 0
x = an
ActiveSheet.Cells(19, 1).Value = ""
While Abs(F(x)) > e
x = ((x + 1 - x ^ 4) / 2) ^ 0.3333
k = k + 1
Wend
ActiveSheet.Cells(19, 1).Value = "Корень =" & Str(x) & " c точностью" & Str(e) & "
вычислен на " & Str(k) & " итерации"
End Sub
Результат работы программы приведен на рис. 3.15.
Рис. 3.15. Результат работы программы Visual Basic
