hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , 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
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Récursivité
hg Previous topic :: Next topic   hd
Author Message
labibben


Offline

Joined: 23 Nov 2008
Posts: 3
Point(s): 40
Moyenne de points: 0

Posted: Mon 8 Dec - 12:16 (2008)    Post subject: Suite de Fibonacci Reply with quote

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
Publicité






Posted: Mon 8 Dec - 12:16 (2008)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
kamakhlouf


Offline

Joined: 22 Jan 2009
Posts: 4
Masculin
Point(s): 31
Moyenne de points: 0

Posted: Mon 26 Jan - 10:53 (2009)    Post subject: Suite de Fibonacci Reply with quote

function Fibo(N:Integer):integer

begin

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

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

end;


 
Revenir en haut
metallicoo


Offline

Joined: 16 Sep 2009
Posts: 49
Masculin
Point(s): 116
Moyenne de points: 0

Posted: Mon 23 Nov - 12:49 (2009)    Post subject: Suite de Fibonacci Reply with quote

c'est pascal ou C? Shocked

 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Sun 7 Mar - 23:43 (2010)    Post subject: Suite de Fibonacci Reply with quote

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
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Récursivité All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation