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

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

السلام عليكم

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

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]

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

السلام عليكم

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

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

.

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

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