Найти n член арифметической прогресии, используя рекурсию - VB

Узнай цену своей работы

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

Помогите пожалуйста составить программу с рекурсией, которая будет находить нужный нам член арифметической прогрессии.
- Вот, что я смог сообразить. Но какой-то бред выводится. Буду очень признателен!

Решение задачи: «Найти n член арифметической прогресии, используя рекурсию»

textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, p As Integer, a1 As Integer, a5 As Integer
   a1 = InputBox("первый член прогрессии = ", , 3) '3 'первый член прогрессии
   p = InputBox("Шаг =", , 3) ' приращение
   n = InputBox("Значение какого члена прогрессии нужно узнать? ", , 5) ' номер члена, который нужно узнать
   Print ChlenProgressii(a1, p, n)
   MsgBox (n & "-ый член арифметической прогрессии,первый член которой равен " & _
           a1 & ", а приращение равно " & p & _
           "   равен " & ChlenProgressii(a1, p, n))
End Sub
Private Function ChlenProgressii(perviyChlen As Integer, priraschehie As Integer, nomerChlena) As Integer
  ChlenProgressii = perviyChlen
  If nomerChlena > 1 Then
     ChlenProgressii = ChlenProgressii(perviyChlen, priraschehie, nomerChlena - 1) + priraschehie
  End If
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 3.571 из 5
Похожие ответы