Calcul d'une suite numérique avec une approche itérative et récursive
Bonjour à tous:
l'énoncé de l'exercice:
Citation:
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:
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.
Calcul d'une suite numérique avec une approche itérative et récursive