Найти первый член последовательности в VB

Формулировка задачи:

Помогите решить задачу в VB: Пусть Y нулевое = 0; Yкатое = (Yкатое - 1)+1 / (Yкатое -1) +2 , k=1, 2, … Дано действительное ε>0. Найти первый член Yn, для которого выполнено условие Yнное - (Yнное - 1) < ε.

Решение задачи: «Найти первый член последовательности в VB»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim Y As Double, Y_1 As Double, delta As Double
Const e As Double = 0.05
 
Print "Последовательность"
Y_1 = 0
 
Print Y_1
Do
    Y = (Y_1 + 1) / (Y_1 + 2)
    delta = Abs(Y - Y_1)
    Y_1 = Y
    Print Y_1
Loop While delta > e
 
Print
Print "Значение равно: " & Y_1
End Sub
                        

Оцени полезность:

9 голосов , оценка 4 из 5

Похожие ответы