المحاضرة العشرون:تطبيقات عن المصفوفات
بعض الملاحظات المهمة جدا عن المصفوفات المربعه:
1) التعامل مع عناصر القطر الرئيسي من خلال الشرط i=j
2) التعامل مع عناصر المثلث فوق القطر الرئيسي من خلال الشرط i3) التعامل مع عناصر المثلث تحت القطر الرئيسي من خلال الشرط i>j
4) التعامل مع عناصر القطر الثانوي من خلال الشرط j=n-i+1 حيث n تمثل عدد صفوف المصفوفة او عدد اعمدتها
5) التعامل مع عناصر المثلث فوق القطر الثانوي من خلال الشرط i+j<=n
6) التعامل مع عناصر المثلث تحت القطر الثانوي من خلال الشرط i+j>n
مثال: برنامج ابدال اكبر عنصر في القطر الرئيسي مع اصغر عنصر في القطر الثانوي في مصفوفة مربعه (4,4)
Dim a(4, 4) As Integer, imax As Integer, jmax As Integer, min As Integer, imin As Integer, jmin As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = InputBox("read the elements of a")
Next j
Next i
For i = 1 To 4
For j = 1 To 4
Print a(i, j); " ";
Next j
Print
Next i
max = a(1, 1)
imax = 1
jmax = 1
For i = 2 To 4
For j = 2 To 4
If i = j Then
If max < a(i, j) Then
max = a(i, j)
imax = i
jmax = j
End If
End If
Next j
Next i
min = a(1, 4)
imin = 1
jmin = 4
For i = 2 To 4
For j = 2 To 4
If j = 4 - i + 1 Then
If min > a(i, j) Then
min = a(i, j)
imin = i
jmin = j
End If
End If
Next j
Next i
المادة المعروضة اعلاه هي مدخل الى المحاضرة المرفوعة بواسطة استاذ(ة) المادة . وقد تبدو لك غير متكاملة . حيث يضع استاذ المادة في بعض الاحيان فقط الجزء الاول من المحاضرة من اجل الاطلاع على ما ستقوم بتحميله لاحقا . في نظام التعليم الالكتروني نوفر هذه الخدمة لكي نبقيك على اطلاع حول محتوى الملف الذي ستقوم بتحميله .
|