Somme récursive des éléments d'une matrice

J'ai testé la fonction suivante pour calculer la somme des éléments d'une matrice mais ça n'a pas marché. Veuillez m'aider.

Code:

---

1 2 3 4 5 6 7 8

function som(tab:ttab;i,j:integer):integer; var m:integer; begin if (i=n) and (j=n) then som:=tab[i,j] else if i<n then som:=tab[i,j]+ som(tab,i,j+1); end;

---

Sie,

N'oublie pas les balises code.

Encore une procédure récursive là où ça ne sert absolument à rien. C'est décidément la saison.

Citation:

---

Envoyé par droggo

Sie,

N'oublie pas les balises code.

Encore une procédure récursive là où ça ne sert absolument à rien. C'est décidément la saison.

---

C' est pareil sur tout le forum en ce moment.
Je ne comprends pas pourquoi utiliser la recusivité si deux lignes codes suffit pour le faire en utilisant l' iteration. Et on evite meme le debordement de la pile en utilisant l' iteration.
A moins que votre devise est :

Citation:

---

Pouquoi faire simple si on peut faire compliqué

---

Code:

---

1 2 3 4 5 6 7 8 9 10

function som(tab:ttab;i,j:integer):integer; var m:integer; begin if (i=n) and (j=n) then som:=tab[i,j] else if (i<=n) and ( j <=n )then som:=tab[i,j]+ som(tab,i,j+1) else if (i <= n ) and (j >n ) then som := som(tab,i+1,1); end;

---

Citation:

---

Envoyé par niz208

Code:

---

1 2 3 4 5 6 7 8 9 10

function som(tab:ttab;i,j:integer):integer; var m:integer; begin if (i=n) and (j=n) then som:=tab[i,j] else if (i<=n) and ( j <=n )then som:=tab[i,j]+ som(tab,i,j+1) else if (i <= n ) and (j >n ) then som := som(tab,i+1,1); end;

---

---

C'est presque ça, mais il y'aura aussi un "dépassement d'index" ;) (2ième condition).