Manipulation des matrices

par **Napoléon** Mar 29 Avr - 23:34

Voilà un exercice qui manipule des matrices ... à vous d'explorer.

Code:: program somatrice; uses wincrt; type MATRICE = array[1..10,1..10] of integer; {Procédure Saisie Matrice} procedure saisie_mat(var M: MATRICE;var n: integer); var i,j: integer; begin {saisie Taille Matrice} repeat write('Donner la taille de la matrice: '); readln(n); until (n in [1..10]); {remplissage Matrice} for i:=1 to n do for j:=1 to n do M[i,j] := i + j; end; {Procédure Affichage Matrice} procedure affiche_mat(M:MATRICE;n:integer); var i,j: integer; begin for i:=1 to n do begin for j:=1 to n do write(M[i,j]:3,' '); writeln; end; end; {fonction Somme Matrice} function Somme_mat(M:MATRICE;n:integer):integer; var S,i,j: integer; begin S := 0; for i:=1 to n do for j:=1 to n do S := S + M[i,j]; Somme_mat := S; end; {Somme Diagonale} function Somme_diag(M:MATRICE;N:integer):integer; var i,j,S: integer; begin S:=0; for i:=1to n do S:= S+M[i,i]; Somme_diag := S; end; {produit Diagonale} function Produit_diag(M:MATRICE;N:integer):integer; var i,j,P: integer; begin P:=1; for i:=1to n do P:=P*m[i,i]; Produit_diag := P; end; {programme principal} VAR MAT : MATRICE; TAILLE: integer; BEGIN saisie_mat(MAT,TAILLE); affiche_mat(MAT,TAILLE); writeln('Somme Matrice = ',Somme_mat(MAT,TAILLE)); writeln('somme diago matrice:',somme_diag(MAT, TAILLE)); writeln('produit diago matice:',Produit_diag(mat,taille)); END.