Accueil > > > FIBONACCI ET NOMBRE D'OR
FIBONACCI ET NOMBRE D'OR
Information sur la source
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
- 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
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
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Suite de nombre... [ par leonweb73 ]
Suite de nombre...Répondre à ce message - Imprimer ce message--------------------------------------------------------------------------------Voilà, j'
[Excel] Compter un nombre de 0 contigues (la suite de "0" la plus longue) [ par Didf ]
Voila imaginons que dans une feuille excel, j'ai (de facon verticale): 2 3 0 0 5 4 0 7 8 41 0 0 0 0 0 5 2 0 0 0 4 ... j'aimerais que e
tableaux [ par vb123 ]
salut j'aimerai créer un nombre de tableau en vb ou je vais insérer par la suite des données mais je ne sais pas auparavant de comme bien de tableaux
Nombre de consonnes a la suite? [ par DDelec24 ]
Bonsoir! Voila je suis bloqué pour calculer le nombre de consonnes à la suite en début de mot, du genre"barbare" renvoi 1 ; "slt" renvo
demande d'aide suite a une perte de CD [ par akzo ]
bonsoir a tous voila j'ai un petit souci j'ai un livre de programmation avec microsoft visual basic 6.0 de diane Zak (par ailleur un bon bouquin
Nombre et virgule [ par yannou24 ]
Bonjour à tousJe voudrais savoir comment faire avec un nombre, pour ne garder qu'un seul chiffre après la virgule. Je pensais qu'il y avait
[VB.NET] Nombre de ligne DataGrid [ par Botanique ]
Bonjour, j'aimerais savoir s'il existe la possibilité de connaître le nombre de ligne d'un DataGrid, comme avec les DaTables (DataTable.Rows.count)?
nombre de colonnes déployées dans un treeview [ par monsieurlemouche ]
bonjour, j'ai beau chercher, je ne trouve pas de propriétés permettant de connaître le nombre de colonnes déployées dans un contrôle treeview. Faud
pb pour compter le nombre de ligne d'une table ( c# et sql server) [ par brute ]
J'aimerai afficher le dernier element de ma table dans une windows form. Pour l'instant le premier marche ( id = 1), suivant et précédent marche mais
Code pour explorer fichier le suns àla suite des autres [ par loops02 ]
Bonjour à tous, je voudrais développé un petit script mais je ne sais pas du tout par quoi commencer. Plusieurs fichiers sont stock
|
Derniers Blogs
[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse chez eux, et l'avenir est très très prometteur pour le HTML5, notammen...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc
Forum
RE : VITESSERE : VITESSE par Renfield
Cliquez pour lire la suite par Renfield RE : VITESSERE : VITESSE par ucfoutu
Cliquez pour lire la suite par ucfoutu MACRO VBA EXCELMACRO VBA EXCEL par sigma17
Cliquez pour lire la suite par sigma17
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|