Найдите первый отрицательный член последовательности - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д