Fibonacci ( suite )

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (chewbaka62)