Найдите первый отрицательный член последовательности - VB
Формулировка задачи:
Дано вещественное положительное число 6. Последовательность a1, a2, a3 ... Образованна по закону a1=b , ai= ai-1 - 1/ sqrt(корень)i ; i=2,3... Найдите первый отрицательный член последовательности.
Помогите с задачей, как делать не знаю. На лекциях не дают, а требуют делать, если можно ещё не много объяснить как делать. Заранее Огромное спасибо!!!
Решение задачи: «Найдите первый отрицательный член последовательности»
textual
Листинг программы
Function firstNeg(b As Double, Optional a As Double = 0, Optional i As Integer = 0) As Double
If i = 0 Then
firstNeg = firstNeg(b, b, 1)
Else
If a < 0 Then
firstNeg = a
Else
firstNeg = firstNeg(b, a - 1 / Sqr(i + 1), i + 1)
End If
End If
End Function
Sub test()
z# = Val(InputBox("b="))
MsgBox "Первый отрицательный=" & CStr(firstNeg(z#))
End Sub