Dhifallah Fethi
Admin
Messages : 74
Date d'inscription : 02/03/2011
 | Sujet: Exercice 3 (Récursivité)  Ven 18 Mar - 2:28 | |
| Exercice 3
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 - Code:
-
procedure Suite ;
var N:integer;
function fib(n : integer) : longint;
begin
if n <= 2 then fib := 1
else fib := fib(n-2) + fib(n-1);
end;
begin
write('Donnez un entier > 1 -> ');
read(N);
write('U[sub]n[/sub] vaut ');write(Fibo(N),2);
end. | |
|
Calendrier
