begin process at 2008 08 21 15:00:55
1 229 428 membres
248 nouveaux aujourd'hui
14 263 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FIBONACCI ( SUITE )


Information sur la source

Catégorie :Maths Source .NET ( DotNet ) Classé sous : nombre, fibonacci Niveau : Débutant Date de création : 05/04/2006 Vu / téléchargé: 7 034 / 226

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

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

  • 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
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
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de jannoman le 06/04/2006 09:46:47

    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.

  • signaler à un administrateur
    Commentaire de amezghal le 09/04/2006 22:35:17

    essaye de dire " suite de l'ATLAS" car c est le nouveau nom de cette suite;

  • signaler à un administrateur
    Commentaire de us_30 le 14/07/2006 12:03:03

    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.

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS