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