Fibonacci et nombre d'or

Soyez le premier à donner votre avis sur cette source.

Vue 12 398 fois - Téléchargée 320 fois

Description

Petit programme sans prétention calculant la suite de Fibonacci ( limitée à 92 membres) et sa relation avec le nombre d'or. Ca ne sert à rien si ce n'est à faire certains rappels utiles en mathématique. Merci d'avance pour vos commentaires.

Source / Exemple :


Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
        Dim strNombre As System.String
        ' Entrez un nombre pour la suite de Fibonacci
        strNombre = InputBox("Entrez un nombre pour la suite de Fibonacci", "Message")
        Dim lngFibo(CInt(strNombre)) As System.Int64
        Dim dblOr As System.Double
        Dim intCompteur As System.Int32
        ' Initialise la suite de Fibonacci
        lngFibo(0) = 1
        lngFibo(1) = 1
        lngFibo(2) = 2
        lstFibo.Items.Add(lngFibo(0))
        lstFibo.Items.Add(lngFibo(1))
        lstFibo.Items.Add(lngFibo(2))

        ' Calcule la suite de Fibonacci à concurrence du nombre saisi
        ' Démontre la relation avec le nombre d'or
        For intCompteur = 3 To (CInt(strNombre)) - 1 Step 1
            lngFibo(intCompteur) = lngFibo(intCompteur - 2) + lngFibo(intCompteur - 1)
            lstFibo.Items.Add(lngFibo(intCompteur))
            dblOr = Format(CDbl(lngFibo(intCompteur) / lngFibo(intCompteur - 1)), "#.##############")
            lstOr.Items.Add(dblOr)
        Next
    End Sub

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.