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