للاذكياء تمرين في l'algorithme

[konandz]

السلام وعليكم
ecrire un programm pascal qui calcul la somme et le produit du deux matrix ET l inverse entr les ligne et les colonne en utilise les action parametré
الرجاء ممن عنده الحل يفيدنا به واجره على الله

[حذيفة بن اليمان]

السلام عليكم

البرنامج الأول: برنامج يقرأ مصفوفتين ويمنحك مجموعهما:

Program CH4_Program13;  
Var  
  A, b, c, d: array [1..3, 1..4] of integer;
  I, j: integer;
Begin  
  For  i:=1 to 3 do
  For  j:=1 to 4 do
    Begin  
      Readln (a [I, j]);  
      Readln (b [I, j]);  
    End ;  
  For  i:=1 to 3 do
  For  j:=1 to 4 do
    Begin  
      C [I, j]:=a [I, j] + b [I, j];  
    End ;  
  For  i:=1 to 3 do
    Begin  
      For  j:=1 to 4 do
        Write(c [I, j]:6);  
      Writeln;  
    End ;
    readln;readln;
End

.

جاري عمل البرنامج الثاني الخاص بضرب مصفوفتين إن شاء الله

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

بالتوفيق

[konandz]

المشاركة الأصلية كتبت بواسطة حذيفة بن اليمان

السلام عليكم

البرنامج الأول: برنامج يقرأ مصفوفتين ويمنحك مجموعهما:

program ch4_program13;  
var  
  a, b, c, d: Array [1..3, 1..4] of integer;
  i, j: Integer;
begin  
  for  i:=1 to 3 do
  for  j:=1 to 4 do
    begin  
      readln (a [i, j]);  
      readln (b [i, j]);  
    end ;  
  for  i:=1 to 3 do
  for  j:=1 to 4 do
    begin  
      c [i, j]:=a [i, j] + b [i, j];  
    end ;  
  for  i:=1 to 3 do
    begin  
      for  j:=1 to 4 do
        write(c [i, j]:6);  
      writeln;  
    end ;
    readln;readln;
end

.

جاري عمل البرنامج الثاني الخاص بضرب مصفوفتين إن شاء الله

بارك الله فيك أخي الفاضل

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

بالتوفيق

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