Числа в следующей последовательности называются числами Фибоначчи. 0, 1, 1, 2, 3, 5, 8, 13,… .. Напишите программу, используя цикл Do… While для вычисления и печати первых 100 чисел Фибоначчи?

1 Ответы


  • Это стандартное хорошее упражнение по программированию; главным образом потому, что большие числа требуют некоторых изысканий, чтобы их можно было увидеть. Я ничего с этим не делал; но вы должны увидеть, куда идти от того, что у меня есть.

    Я реализовал решение в Visual Basic для Excel:

    Sub main ()
        Dim a As Double, b As Double, c As Integer, x As Integer, limit As Integer, y As Double
        a = 1: B = 1: Can ' t = 2: Limit = 100: Message = "Series:" & a & "," & b
        Do while (cannot <= limit)
      y = a + b: A = b: B = y: Message = Message & "," & y: Can't = can't + 1
      If (MsgBox (Message, 1, "Fibonacci Series!") = 2) Then can ' t = предел + 1 конец
        цикла
    Sub

    Если вы вставляете новый модуль, копируете этот код и вставляете его в подпрограмму по умолчанию Main (), это будет итеративно отображать ряд Фибоначчи, увеличивающийся при нажатии кнопки OK.

    Обратите внимание - независимо от реализации вам нужно будет учитывать тот факт, что блоки значений после определенной точки не будут отображаться; это потому, что существует максимальное значение, которое может быть представлено, и которое необходимо решить.
    В Microsoft Excel 2003, например, я думаю, что максимальное число - это 11-значное число. Например, если вы откроете новую книгу и введете в нее число 99 999 999 999, отобразятся все числа. Если вы добавите к этому единицу, видимое число будет 1E + 11, то есть 1 x 10 ^ 11; другими словами, число слишком велико, чтобы его можно было представить. Ряд Фибоначчи достигает этого предела примерно на пятьдесят пятой итерации. Таким образом, будет ли приведенная выше реализация работать для вас, зависит от вашей цели.

    ~ вне

Напишите свой ответ

Ваш ответ появится после модерации