Discussion :

[lo_pascal]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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.

[darrylsite]

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 :

Pouquoi faire simple si on peut faire compliqué

[niz208]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Loceka]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).