A voir également:
- Algorithme aide!!!!
- Ppcm algorithme - Forum Programmation
- Pgcd algorithme - Forum Programmation
- Ecrire un algorithme qui permet de resoudre ax²+bx+c=0 - Forum Algorithmes / Méthodes
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- Algorithme excel - Forum VB / VBA
6 réponses
JSS
Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
31
8 sept. 2004 à 14:48
8 sept. 2004 à 14:48
pareil que ici :
http://www.commentcamarche.net/forum/affich-990548-algorithme#1
Bon Courage !
JSS
http://www.commentcamarche.net/forum/affich-990548-algorithme#1
Bon Courage !
JSS
Tu veux donc qu'on écrive l'algo qui calcule les termes de la suite de Fibonacci ?
En quel langage ?
En quel langage ?
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;
/*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;
En quel langage?
En langage mathématique, non?
Ah c pas ça?
Euh ptêt bien en langage TAMP :
"Travaillez A Ma Place"
En langage mathématique, non?
Ah c pas ça?
Euh ptêt bien en langage TAMP :
"Travaillez A Ma Place"
blux
Messages postés
24878
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 mars 2023
3 311
9 sept. 2004 à 16:01
9 sept. 2004 à 16:01
ben non, c'est en algo...
A+ Blux
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"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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;
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;