Fibonacci et nombre d'or
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
- Fibonacci et nombre d'or
- Générateur de nombre ✓ - Forum PHP
- Nombre premier ✓ - Forum C / C++ / C++.NET
- Nombre semaine année - Forum C / C++ / C++.NET
- Regex nombre entre 1 et 100 ✓ - Forum Regex
- Nombre aléatoire entre 1 et 16 ✓ - Forum PHP
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.