Итерационный цикл

[Катя100]

Составить алгоритм и программу для вычисления значения функции Y с заданной точностью E. Итерационные вычисления значений функции y производятся по определенной рекуррентной формуле, пусть будет пока в общем виде: y(i+1) = f(y(i); y(i-1)) .Вычисления заканчиваются при выполнении условия |y(i+1) - y(i)|<=E . Вывести на печать значения функции Y и число итераций, выполненных для выполнения поставленного условия. Е = 0,01. Начальные значения y0=0.55, y1=0.35

Указание: использовать операторы Do... Loop

[gaw4]

Private Sub Command1_Click()
eps = 0.1
y0 = 0.55: Y1 = 0.35
Y2 = f(y0, Y1)
Do
y0 = Y1: Y1 = Y2
Y2 = f(y0, Y1)
Loop While Abs(Y2 - Y1) > eps
MsgBox Y2
End Sub
Function f(a, b)
f = (b / (a + 2) + b) / 2
End Function