Dhifallah Fethi Admin
Messages : 74 Date d'inscription : 02/03/2011
| Sujet: Exercice 4 (Récursivité) Ven 18 Mar - 2:58 | |
| Exercice 4
Donner une fonction récursive qui permet de calculer la somme d'une matrice.
Réponse - Code:
-
program Somme_Matrice; uses wincrt; type matrice=array[1..10,1..10] of integer;
var i,j,n:integer; M:matrice;
procedure saisie(var n:integer;var M:matrice); var i,j:integer; begin write('taille de matrice:'); readln(n); for i:=1 to n do begin for j:=1 to n do begin write('m[',i,',',j,']='); readln(m[i,j]); end; end; end;
function somme(i,j,n:integer; m:matrice):integer; begin if (i=n) and (j=n) then somme:=m[n,n] else if j=n then somme:=m[i,j]+somme(i+1,1,n,M) else somme:=m[i,j]+somme(i,j+1,n,M); end;
begin saisie(n,m); writeln('la somme de matrice est:',somme(1,1,n,m)); end. | |
|