Matematicheskie_metody / Мат. методы. 1 семестр(1 модуль) / Метод итераций(1 модуль)

Function f(x As Single) As Single
f = Sqr(x) * x ^ 2
End Function
Function f1(x As Single) As Single
f1 = 1 / (2 * Sqr(x)) * 2 * x
End Function
Sub метод_итераций()
Const e = 0.0001
Dim x As Single, x1 As Single, q As Single, e0 As Single
x = 0.3
Do
x1 = x: x = f(x)
Loop While Abs(x - x1) > e
q = f1(x)
If q > 0 Then e0 = e * q / (1 - q) Else e0 = e
Debug.Print x, e0
End Sub