Найдите первый отрицательный член последовательности - 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

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

14 голосов , оценка 3.643 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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