Bonjour à tous:

l'énoncé de l'exercice:
Soit la suite (U) définie par:
U0= 2
U1= 3
Un = Un-1+ 2*Un-2 pour tout n >= 2

ecrire un programme qui saisi un entier n , calcul et affiche Un
Voici ma solution récursive:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses wincrt;
var
n:integer;
 
       function calcul (n:integer):integer;
 
 
       begin
 
 
       if n=0 then calcul:=2
       else if n=1 then calcul:=3
       else
           begin
 
 
           calcul:=calcul(n-1)+2*calcul(n-2);
           end;
 
       end;
 
begin
write('N= ');
readln(n);
write(calcul(n));
end.
je n'a pas pu formuler la solution itérative.