Fibonacci ( suite )

Soyez le premier à donner votre avis sur cette source.

Vue 11 723 fois - Téléchargée 342 fois

Description

Voici un programme basé sur un algorithme très simple ( utilisant une formule particulière ) et qui permet de déterminer le Nième membre d'une suite de Fibonacci sans connaître les autres nombres de la suite. On sait jamais, ça peut intéresser certains.
Merci pour vos critiques.
A plus.

Source / Exemple :


Private Sub btnAfficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAfficher.Click
        Dim lngFibo As System.Int64
        ' Variable enregistrant la position de la suite de Fibonacci
        Dim strN As System.String
        strN = txtN.Text
        ' Formule déterminant le nombre de Fibonacci correspondant à la position saisie
        lngFibo = 1 / Sqrt(5) * (((1 + Sqrt(5)) / 2) ^ CInt(strN) - ((1 - Sqrt(5) / 2)) ^ CInt(strN))
        lblFibo.Text = Str(lngFibo)
    End Sub

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        ' Réinitialisation des contrôles TextBox et Label
        txtN.Text = ""
        lblFibo.Text = ""
        txtN.Focus()
    End Sub

    Private Sub btnQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitter.Click
        Me.Close()
    End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

jannoman
Messages postés
258
Date d'inscription
jeudi 17 avril 2003
Statut
Membre
Dernière intervention
20 février 2008
1 -
ben oui ca utilise la formule, mais bon... j'ai pas essayé, mais a^b - c ^b où a et c sont des nombres à virgules, c'est pas sur que ca fasse un entier à la fin !

quitte à faire quelque chose sur les nb de fibonacci, tente de faire un code pour calculer u(n) où n > 92, ce sera plus intéressant.

ha au fait, il y a une formule pour calculer u(n) en temps logarithmique, où l'on a u(2n) en fonction de u(n) ou qqchose comme ca.
amezghal
Messages postés
385
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
21 août 2015
1 -
essaye de dire " suite de l'ATLAS" car c est le nouveau nom de cette suite;
us_30
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8 -
Salut,

Je signale au passage que : ((1 - Sqrt(5) / 2)) ^ CInt(strN)) devient toute de suite négligeable, donc on peut l'ignorer.

Amicalement,
Us.
kiseiju1512
Messages postés
1
Date d'inscription
jeudi 4 mars 2010
Statut
Membre
Dernière intervention
4 mars 2010
-
Merci ;-)

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.