Algorithme aide!!!!

infobens -  
 Time RUNNER -
salut une fois je suis plus que content de participer a cette forum
mon problème est la suivante et je veux de l'aide avec ceci:
la sequence des nombres suivants F0=0,F1=1,F2=1,F3=2,F4=3,
F5=5,F6=8,F7=13 ecrire un algorithme qui calcule et imprime les valeurs des 50 premiers nombres apres avoir initialiser deux variables F0----o et F1---1.
svp aidez moi car j'ai grand besoin.
merci !!!

6 réponses

JSS Messages postés 3745 Date d'inscription   Statut Contributeur Dernière intervention   32
 
0
Time RUNNER
 
Tu veux donc qu'on écrive l'algo qui calcule les termes de la suite de Fibonacci ?

En quel langage ?
0
INFOBENS
 
salut mec merci de penser a moi
tu peux le faire en pascal ou bien ecrire tout simplement l'algorithme.
merci mille merci !!!!
0
Time RUNNER > INFOBENS
 
j'ai fait du pascal en 1996 donc ça devrait ressembler à ça (au fautes de syntaxe prêt...):

/*Fonction Fibo

u(0) = 1
u(1) = 1
u(n) = u(n-1)+u(n-2)

*/

FUNCTION Fibo(INTEGER a, INTEGER b, INTEGER N) AS INTEGER
if n==1
Fibo = a;
else
if n==1
Fibo = b;
else
Fibo = Fibo(b, a+b, n-1);
end;
end;

END;

/**/

PROGRAM
INTEGER U0 = 1;
INTERER U1 = 1;

INTEGER n = 7; /* par exemple*/

INTEGER Un = Fibo(U0, U1, n);

writeline('U' , n , '=' , Un);


END;
0
Cqqn
 
En quel langage?
En langage mathématique, non?
Ah c pas ça?
Euh ptêt bien en langage TAMP :
"Travaillez A Ma Place"
0
blux Messages postés 27127 Date d'inscription   Statut Modérateur Dernière intervention   3 360
 
ben non, c'est en algo...

tant que pas 50 faire
additionner les deux derniers termes et les mettre dans l'antépénultième qu'on additionnera avec l'autre
pis c'est tout
fin tant que

A+ Blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Fom
 
Hello, voila l'algo en récursive en plus. Sauf erreur de ma part, il devrait tourner. Si jamais c'est du java.

public int fib(int nb)
{

/* Clause de finitude */
if (nb < 3)
{
return 1 ;
}

/* Pas récursif */
return fib(nb-1) + fib(nb-2) ;
}
Bonne soirée.

Fom
0
Jolkdarr
 
Hello !

Une version (lente) en Ada 95 :

with text_io;
procedure suite_de_Fibonacci is
function fibonacci(N : in natural) return natural is
begin
case N is
when 0 => return 0;
when 1..2 => return 1;
when others => return fibonacci(N -1) + fibonacci( N - 2);
end case;
end;

begin
-- 50 premiers nombres :
for N in 0..49 loop
text_io.put_line(natural'image(Fibonacci(N)));
end loop;
end;
0