للاذكياء تمرين في 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]

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


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.

بالتوفيق

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