Вычислить и вывести на печать последовательность первых 20 чисел Фибоначчи - VB

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

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

Вычислить и вывести на печать последовательность первых 20 чисел Фибоначчи, если Х(1)=1, Х(2)= 2, а каждый последующий элемент равен сумме двух предыдущих.

Решение задачи: «Вычислить и вывести на печать последовательность первых 20 чисел Фибоначчи»

textual
Листинг программы
Private Sub Command1_Click()
    Dim i As Integer, X(1 To 20) As Integer
    For i = 1 To 20
    If i < 3 Then X(i) = i Else X(i) = X(i - 1) + X(i - 2)
         Print "X (" & i & ") = " & X(i)
    Next i
End Sub

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


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

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

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