[konandz]

المشاركة الأصلية كتبت بواسطة king soft

وعليكم السلام اخي

program matrice;
uses crt;
type mx=array[1..5,1..5]of integer;
var a,b,c:mx;
procedure remplassage(var m:mx);
var i,j:integer;
begin
clrscr;
writeln('romplassage le matrice :');
for i:=1 to 5 do
    for j:=1 to 5 do
     begin
        gotoxy(j*5,i*5);
        read(m[i,j]);
        end;
end;
procedure som(m1,m2:mx ;var m:mx);
var i,j:integer;
begin
for i:= 1 to 5 do
    for j:=1 to 5 do
    m[i,j]:=m1[i,j]+m2[i,j];
end;
procedure produit(m1,m2:mx;var m:mx);
var i,j,k:integer;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        begin
        m[i,j]:=0;
        for k:=1  to 5 do
            m[i,j]:=m[i,j]+m1[i,k]+m2[k,j];
        end;
end;
procedure affich(m:mx);
var i,j:integer;
begin
clrscr;
for i:=1 to 5 do
    for j:=1 to 5 do
    begin
     gotoxy(j*5,i*5);
     write(m[i,j]);
    end;
end;
begin
remplassage(a);
remplassage(b);
clrscr;
writeln;
writeln('entre 1 pour calcul la som ');
writeln('entre 2 pour calcul le produit ');
case readkey of
'1':som(a,b,c);
'2':produit(a,b,c);
end;
affich(c);




readln;readln;

end.

بالتوفيق

الله يحفظك ويعزك ويبارك فيك
تقبل تحياتي