FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Simuler l’appui de n’importe quelle touche.
par papydall Hier à 23:54

» Le Forum est en vacances.
par JL35 Hier à 21:20

» Une autre façon de terminer une application.
par JL35 Mar 22 Aoû 2017 - 14:27

» Compilateur FBPano
par Mike Lun 21 Aoû 2017 - 23:17

» Pb 20 (en analyse): plantage à l'appel d'un SUB
par Jack Lun 21 Aoû 2017 - 21:58

» Pb 19 (en analyse): libellé d'erreur dans des IF imbriqués
par Jack Lun 21 Aoû 2017 - 21:55

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Lun 21 Aoû 2017 - 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Lun 21 Aoû 2017 - 5:01

» Mettre en windows en veille
par papydall Lun 21 Aoû 2017 - 4:15

» Stretch_on ne stretch plus...
par papydall Dim 20 Aoû 2017 - 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Dim 20 Aoû 2017 - 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 La suite de Fibonacci

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5523
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: La suite de Fibonacci   Sam 22 Déc 2012 - 3:57

Salut tout le monde.

Connaissez-vous la suite de Fibonacci ?
Posez une petite question à Google et ....

Quant à moi, voici mon code
Code:
' ******************************************************************************
'
'  La suite de Fibonacci par PAPYDALL
'
'            FIBO.BAS
'
' ******************************************************************************
' Leonardo Fibonacci, mathématicien italien du XIII siècle a posé dans l'un de
' ses ouvrages le problème suivant :
' Un homme met un couple de lapins dans un lieu isolé de tous les côtés par un
' mur. Combien de couples obtient-on en un an si chaque couple engendre tous les
' mois un nouveau couple à compter du troisième mois de son existence ?
' On suppose que :
' au début du premier mois, il y a juste une paire de lapereaux ;
' les lapereaux ne procréent qu'à partir du  troisième mois ;
' chaque mois, toute paire susceptible de procréer engendre effectivement une
' nouvelle paire de lapereaux ;
' la nourriture est abondante et les lapins ne meurent jamais.
' ------------------------------------------------------------------------------
' La suite de Fibonacci est donc strictement croissante.
' Les termes de cette suite sont appelés "Nombres de Fibonacci"
' ******************************************************************************

Run() : end
' ******************************************************************************
SUB Run()
    dim n ,r$
    top 0,200 : left 0,400
    memo 1 : width 1, 200 : height 1,3000 : print_target_is 1
    Caption 0," La suite de Fibonacci par : PAPYDALL"
    repeat
        repeat
              r$ = message_input$("Entrer la valeur N (> 1)","N = ","2")
        until numeric(r$) = 1
    until val(r$) > 1
    n = val(r$) : fibonacci(n)
END_SUB
' ******************************************************************************
SUB fibonacci(n)
  dim_local fib0,fib1,fib2,i
  fib0 = 0 : fib1 = 1
  print "F0 = " ; fib0 : print "F1 = " ; fib1
  FOR i = 2 TO n
      fib2 = fib1 + fib0 : PRINT "F";i;" = ";fib2
      fib0 = fib1 : fib1 = fib2
  NEXT i
END_SUB
' ******************************************************************************
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
 
La suite de Fibonacci
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» La suite de Fibonacci
» RESOLU works suite 2004 (word) non installé ??
» Bug suite à la mise à jour 10.0.45.2 du player flash résolu
» Outpost Security Suite FREE
» [Résolu] comment mettre plusieurs animationa la suite

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: