الموضوع: تطبيقات في المصفوفات

السلام عليكم و رحمة الله


البرنامج الثالث حساب DIAGONALE

PROGRAM MATRICE3;
Var
a :array [1..50,1..50] of integer;
i,j,n,s: integer
Begin
Read(n);
S:=0;
For i:=1 to n do
For j:=1 to n do
Begin
Read(a[i,j]);
If i=j then
S:=s+a[i,j];
End;
Write(s);
End.

عمل البرنامج
البرنامج يحسب لنا DIAGONALE



وDIAGONALE يحسب في حالة واحدة
حين تكون المصفوفة مربعة
الي عدد السطور يساوي عدد الخانات
شرح السورس
A مصفوفه مربعة ذات ابعاد 50
I J N S متغيرات من نوع اعداد صحيحة
اولا نقراء N ونضع S=0
من اجل تغير I وJ من 1 الى N
نقراء المصفوفه A
في حالة I = J
S=S+A[I,J
واخير نكتب S

البرنامج الرابع:

PROGRAM MATRICE4;
Var
A :array [1..50,1..70] of integer;
B :array [1..70,1..80] of integer;

C :array [1..50,1..80] of integer;

i,j,n,m,p,k: integer
Begin
Read(n,m,p);
For i:=1 to n do
For j:=1 to m do
read(a[i,j]);
for i:=1 to m do
for j :=1 to p do
read(b[i,j]);
for i:=1 to n do
for j:=1 to p do
read(c[i,j]);
for i:= 1 to n do
for j:=1 to p do
Begin
c[i,j]:=0;
for k:=1 to m do
c[i,j]:=c[i,j]+a[i,k]*b[b,j];
end;
for i := 1 to n do
for j:=1 to p do
Write(c[i,j]);
End.

a(n,m)*b(m,p)=c(n,p
عمل البرنامج
البرنامج يقوم بضرب المصفوفتين
حسب المعادلة
a(n,m)*b(m,p)=c(n,p

شرح السورس
A B C ثلاث مصفوفات ذات الابعد المذكورة
I J N M P K متغيرات من اعداد صحيحة
نقراء N M P
ومن اجل تغير I من 1 الى N
ومن اجل تغير J من 1 الى M¨
نقراء المصفوفة A[I,J
ومن اجل تغير I من1 الى M
ومن اجل تغير J من1 الى P
نقراء المصفوفة B[I,J
ومن اجل تغير I من 1 الى N
ومن اجل تغير J من1 الى P
نقراء المصفوفة C[I,J
ومن اجل تغير I من 1 الى N
ومن اجل تغير J من1 الى P
نضع C[I,J]=0
ومن اجل تغير K من 1 الى M
c[i,j]=c[i,j]+a[i,k]*b[b,j
ومن اجل تغير I من 1 الى N
ومن اجل تغير J من1 الى P
نكتب المصفوفة الناتجة C[I,J

البرنامج الخامس:

PROGRAM MATRICE5;
Var
A :array [1..50,1..50] of integer;
i,j,n,x: integer
Begin
Read(n);
For i:=1 to n do
For j:=1 to n do
read(A[i,j]);
for i:=1 to n do
begin
for j :=i+1 to n do
Begin
x:=a[i,j]
a[i,j]:=a[j,i]
a[j,i]:=x
end;
end;
for i := 1 to n do
for j:=1 to n do
Write(a[i,j]);
end.

عمل البرنامج
يقلب لنا المصفوفة (في نفس المصفوفة)


شرح السورس
A مصفوفة مربعة ذات ابعاد 50
I J N X متغيرات من نوع اعداد صحيحة
اولا نقراء N
ومن اجل تغير I و J من 1 الى N
نقراء المصفوفة A
ومن اجل J تتغير من I+1 الى n
نضع قيمة A[I,J في X
وقيمة A[J,I في A[I,J
وقيمة X في A[J,I
ومن اجل تغير قيمة I و J من 1 الى N
نكتب المصفوفة الناتجة.

البرنامج السادس

PROGRAM MATRICE6;
Var
E :array [1..50,1..50] of integer;
S :array [1..51,1..51] of integer;
i,j,n: integer
Begin
Read(n);
For i:=1 to n do
begin
S[i,n+1]:=0;
For j:=1 to n do
begin
read(E[i,j]);
S[i,j]:=E[i,j];
S[i,n+1]:=S[i,n+1]+E[i,j];
end;
end;
S[n+1,n+1]:=0
for j:=1 to n do
begin
S[n+1,j]:=0;
for i:=1 to n do
begin
S[n+1,j]:= S[n+1,j]+E[i,j];
if i=j then S[n+1,n+1]:=S[n+1,n+1]+E[i,j];
end;
end;
for i:=1 to n+1 do
for j:=1 to n+1 do
write(S[i,j]);
end.

عمل البرنامج
يجمع اعاد كل سطر ويضعه في الخانة الاخيرة وكذالك الخانات
ماعاد الخانة S[N+1,n+1 فيضع فيها مجموع القطر diagonale


شرح السورس
E S جدولان ذو اعداد صحيحة
i j n متغيرات اعداد صحيحة
اولا نقراء n
وبتغير i من 1 الى n
نضع S[i,n+1]=0
اي السطر الاخير
وبتغير j من 1 الى n
نقراء المصفوفة E[i,j
ثم نضعها في المصفوفة s[i,j
ونضع في السطر الاخير
S[i,n+1]=S[i,n+1]+E[i,j
نضع في اخر خانة s[n+1,n+1]=0
كي لا يجمع العمود الاخير
بتغير J من 1 الى n
نضع جميع اعمدة السطر الاخير تساوي الصفر
وبتغير i من 1 الى n
s[n+1,j]=s[n+1,j]+e[i,j
مثل الخطوة السابقة تماما
الان نحسب القطر
في حالة i=j
s[n+1,n+1]=s[n+1,n+1]+e[i,j
بتغير i وj من 1 الى n+1
نكتب المصفوفة الناتجة s

البرنامج السابع

PROGRAM MATRICE7;

Var

A :array [1..51,1..51] of integer;

i,j,n: integer

Begin

read(n);

for i:=1 to n do

for j:=1 to i do

begin

if (i=j) or (j=1)

then A[i,j]:1

else

A[i,j]:=A[i-1,j-1]+A[i-1,j];

end;

for i :=1 to n do
for j:=1 to n do

Write(A[i,j]);

end.

عمل البرنامج
انشاء مثلث باسكال

شرح السورس
a مصفوفة
i j n متغيرات اعداد صحيحة
اولا نقراء n
وبتغير i من 1 الى n
وبتغير j من 1 الى i
في حالة i=j او j=1
المصفوفة تاخذ قيمة 1
في حالة لم يتحقق الشرط
اي I لا = j و j لا= 1
A[i,j]:=A[i-1,j-1]+A[i-1,j
يتغير i و j من 1 الى n
نكتب المصفوفة الناتجة.

البرنامج الثامن

PROGRAM MATRICE8;
Var
A :array [1..100,1..70] of integer;
tmin :array [1..70] of integer;
i,j,n,m: integer
Begin
read(n,m);
for i:=1 to m do
begin
read(A[1,j]);
tmin[j]:=A[1,j];
for i:=2 to n do
begin
read(A[i,j]);
if tmin[j] >A[i,j]then
tmin[j]:=A[i,j];
end;
end;
for j:=1 to m do
Write(tmin[j]);
end.

عمل البرنامج
يقوم بوضع كل اصغرعدد من ك عمود في الجدول
شرح السورس
a مصفوفة
tmin جدول
i j n m متغيرات اعداد صحيحة
اولا نقراء M و n
ومن اجل تغير j من 1 الى M
نقراء العمد الاول من المصفوفة A
ونضعه في الجدول tmin
ومن اجل تغير i من 2 الى N
نقراء المصفوفة a
في حالة الجدول اكبر من المصفوفة
قيمة تلك الخانة من الاجدول تاخد قيمة المصفوفة
بتغير j من 1 الى m
نكتب الجدول الناتج

tmin

**هذه البرامج مرفوعة على ملف **

pdf
من هنا:

4shared

rapidshare

mediafire

******** بالتوفيق*******