/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        S U I T E   D E   F I B O N A C C I   E T   N O M B R E   D ' O R  :                                                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/Fibonacci.01$vv$c' :                                                                                       */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20161028120148).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  "INCLUDES.01.I"

#define   NOMBRE_MAXIMAL_DE_NOMBRES_DE_FIBONACCI                                                                                        \
                    40

long      int       NombresDeFibonacci[NOMBRE_MAXIMAL_DE_NOMBRES_DE_FIBONACCI];

#define   INITIALISATION_DE_LA_LISTE_DES_NOMBRES_DE_FIBONACCI                                                                           \
                    {                                                                                                                   \
                    int       IndexInitialisation;                                                                                      \
                                                                                                                                        \
                    for       (IndexInitialisation=INDEX0 ;                                                                             \
                               IndexInitialisation<=NombreVersIndex(NOMBRE_MAXIMAL_DE_NOMBRES_DE_FIBONACCI) ;                           \
                               IndexInitialisation++                                                                                    \
                               )                                                                                                        \
                              {                                                                                                         \
                              if        (IndexInitialisation <= NombreVersIndex(2))                                                     \
                                        {                                                                                               \
                                        NombresDeFibonacci[IndexInitialisation] = IndexVersNombre(IndexInitialisation);                 \
                                        }                                                                                               \
                              else                                                                                                      \
                                        {                                                                                               \
                                        NombresDeFibonacci[IndexInitialisation]                                                         \
                                        = NombresDeFibonacci[IndexInitialisation-2]+NombresDeFibonacci[IndexInitialisation-1];          \
                                        }                                                                                               \
                              }                                                                                                         \
                    }

main()
          {
          int       Index;

          INITIALISATION_DE_LA_LISTE_DES_NOMBRES_DE_FIBONACCI;

          for       (Index=INDEX0 ; Index<=NombreVersIndex(NOMBRE_MAXIMAL_DE_NOMBRES_DE_FIBONACCI) ; Index++)
                    {
                    printf("Fibonacci(%d)=%ld",Index,NombresDeFibonacci[Index]);

                    if        (Index <= NombreVersIndex(2))
                              {
                              }
                    else
                              {
                              printf("     Phi=%.16f",(double)NombresDeFibonacci[Index]/(double)NombresDeFibonacci[Index-1]);
                              }

                    printf("\n");
                    }
          }