hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Suite de Fibonacci
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Récursivité
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
labibben


Hors ligne

Inscrit le: 23 Nov 2008
Messages: 3
Point(s): 40
Moyenne de points: 0

Posté le: Lun 8 Déc - 12:16 (2008)    Sujet du message: Suite de Fibonacci Répondre en citant

PublicitéSupprimer les publicités ?
Soit la suite définit par :

u0=1

u1=1

un+2=un+1+un pour n entier positif

Ecrire un programme qui demande un entier n positif (> 1) et affiche la valeur de un en utilisant une fonction récursive pour le calcul ...
réponse

- Calcul du terme un de la suite de Fibonacci

- - à l'aide d'une fonction récursive

- - ----------------------------------------------------------------------

with Text_Io; use Text_Io;

with Ada.Integer_Text_Io;

use Ada.Integer_Text_Io;



procedure Suite is

N:integer;

function Fibo(N:Integer) return Integer is

begin

if N=0 then return 1;

elsif N=1 then return 1;

else return Fibo(N-2)+Fibo(N-1);

end if;

end Fibo;

begin

put("Donnez un entier > 1 -> ");

get(N);

put("Un vaut ");put(Fibo(N),2);

end Suite;

Comparer les temps d'exécution en utilisant une fonction itérative (à l'aide d'une boucle) et une fonction récursive. Justifier.

Temps d'exécution en secondes pour N variant de 30 à 45

Valeurs données à titre indicatif (réalisé sur Pentium III 450 Mhz).


 
Revenir en haut
kamakhlouf


Hors ligne

Inscrit le: 22 Jan 2009
Messages: 4
Masculin
Point(s): 31
Moyenne de points: 0

Posté le: Lun 26 Jan - 10:53 (2009)    Sujet du message: Suite de Fibonacci Répondre en citant

function Fibo(N:Integer):integer

begin

if N<=1then fibo <---- 1

else fibo<---- Fibo(N-2)+Fibo(N-1);

end;


 
Revenir en haut
metallicoo


Hors ligne

Inscrit le: 16 Sep 2009
Messages: 50
Masculin
Point(s): 117
Moyenne de points: 0

Posté le: Lun 23 Nov - 12:49 (2009)    Sujet du message: Suite de Fibonacci Répondre en citant

c'est pascal ou C? Shocked

 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Dim 7 Mar - 23:43 (2010)    Sujet du message: Suite de Fibonacci Répondre en citant

Code:
function fib(n : integer) : longint;
begin
    if n <= 2 then fib := 1
    else fib := fib(n-2) + fib(n-1);
end;



 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 23:15 (2016)    Sujet du message: Suite de Fibonacci

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Récursivité Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation