Los números de la siguiente secuencia se denominan números de Fibonacci. 0, 1, 1, 2, 3, 5, 8, 13,… .. Escribe un programa usando Do… While Loop para calcular e imprimir los primeros 100 números de Fibonacci?

1 Respuestas


  • Este es un buen ejercicio de programación estándar; principalmente porque los números más grandes requieren algunos arreglos para ser visibles. No hice nada con eso; pero, debería poder ver a dónde ir de lo que tengo aquí.

    Implementé una solución en Visual Basic para 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: Límite = 100: Mensaje = "Serie:" & a & "," & b
        Hacer mientras (no se puede <= límite)
      y = a + b: A = b: B = y: Mensaje = Mensaje & "," & y: Can't = can't + 1
      If (MsgBox (Message, 1, "Fibonacci Series!") = 2) Entonces can ' t = límite + 1 Sub de final de
        bucle


    Si inserta un nuevo módulo, copia este código y pega sobre el sub Main () predeterminado, esto mostrará iterativamente la serie de Fibonacci, creciendo a medida que presiona el botón OK.

    Tenga en cuenta que, independientemente de la implementación, deberá abordar el hecho de que los bloques de valores después de cierto punto no se mostrarán; esto se debe a que hay un valor máximo que se puede representar y que debe abordarse.
    En Microsoft Excel 2003, por ejemplo, creo que el máximo es un número de 11 dígitos. Por ejemplo, si abre un nuevo libro de trabajo y escribe el número 99,999,999,999 en él, se mostrarán todos los números. Si agrega uno a esto, el número visible será 1E + 11, que es 1 x 10 ^ 11; en otras palabras, el número es demasiado grande para representarlo. La serie de Fibonacci alcanza este límite alrededor de la quincuagésima quinta iteración. Por lo tanto, si la implementación anterior funcionará o no para usted, se basa en su objetivo.

    ~ fuera

Escribe tu respuesta

Tu respuesta aparecerá después de la moderación