Manipulation des matrices
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
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.
Napoléon- Admin
-
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7666
Date d'inscription : 19/03/2007
Feuille de personnage
Capacité linguistique:
(999/1000) -
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|