begin process at 2010 03 22 09:21:37
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Maths

 > FIBONACCI ET NOMBRE D'OR

FIBONACCI ET NOMBRE D'OR


 Information sur la source

Note :
4 / 10 - par 1 personne
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths Source .NET ( DotNet ) Classé sous :fibonacci, suite, nombre, or Niveau :Débutant Date de création :05/04/2006 Vu / téléchargé :8 945 / 217

Auteur : chewbaka62

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) RECHERCHE DE CHAÎNES DANS UN FICHIER TEXTE
Source avec Zip Source avec une capture Source .NET (Dotnet) CONVERTISSEUR UNIVERSEL EN BASES MULTIPLES
Source avec une capture Source .NET (Dotnet) FACTORISATION EN NOMBRES PREMIERS
Source avec Zip Source avec une capture Source .NET (Dotnet) FIBONACCI ( SUITE )
Source avec Zip Source avec une capture Source .NET (Dotnet) CRIBLE D' ERATOSTHÈNE

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) COMPILATION A LA VOLÉE, INTERPRÉTER UNE FONCTION MATHÉMATIQU... par sergeb44
Source avec Zip Source .NET (Dotnet) PISH2010-VB2008 par SaintMaur
Source avec Zip Source avec une capture PI-SH-2010-VB6 par SaintMaur
Source avec Zip Source avec une capture CHIFFRAGE ET DECHIFFRAGE FONCTION AFFINE par tresorsdevie
ALGORITHME DE NIVEAU POUR LA RÉSOLUTION DU MÉTHODE POTENTIEL... par sagessekaye

 Sources en rapport avec celle ci

CONVERSION D'UN NOMBRE EN "PACKED NUMBER", ET INVERSEMENT par WebSeb
Source .NET (Dotnet) CONJECTURE DE SYRACUSE par Skanenruf
Source avec Zip TROIS ALGORITHMES POUR LA SUITE DE FIBONACCI par Cacophrene
Source avec Zip Source avec une capture Source .NET (Dotnet) FIBONACCI ( SUITE ) par chewbaka62
CHIFFRE EN LETTRE FONCTION par ElDoktor

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


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 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&#2 vba formulaire [ par pitros ] Bonjour, Voila le problème je saisis un nombre de salarié dans une textbox, a chaque fois que je l'archive en cliquant sur une commandbutton


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,811 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales