العمليات الحسابية في المصفوفات

المحاضرة السابعة عشر:العمليات الحسابية في المصفوفات

العمليات الحسابية والمصفوفات:-
سنتناول هنا كيفية اجراء العمليات الحسابية(جمع،طرح،ضرب،قسمة) بين عنصر ومصفوفة وبين مصفوفة ومصفوفة أخرى .
العمليات الحسابية بين عنصر ومصفوفة:-
إن إجراء أي عملية حسابية (جمع، طرح، ضرب، قسمة) بين أي عنصر ومصفوفة تتم بكل سهولة (في كلا حالتي المصفوفات الاحادية والثنائية) حيث يتم اجراء تلك العملية بين ذلك العنصر وبين جميع عناصر المصفوفة بحيث تنتج لنا مصفوفة ابعادها نفس ابعاد عناصر المصفوفة، وكما موضح في الامثلة التالية:
ناخذ هنا مثال حول ضرب عنصر وليكن X في مصفوفة احادية ولتكن A وكما يلي:







اعداد واجهة المشروع:-








اعداد خصائص الكيانات:-
الكيان الخاصية الإعداد
Command1 Caption Read/Multiple
Command2 Caption Exit
Text1 Name txt1
Multiline True

كتابة شفرات المشروع:-
• شفرة الامر exit : end

• شفرة الامر read/multiple

• شفرة الامر read/multiple
Dim a(3) As Integer
Dim i As Integer
Dim x As Single
x = InputBox("enter any single number")
For i = 0 To 2
a(i) = InputBox("inter any number")
Next i
txt1.Text = x & vbNewLine
For i = 0 To 2
txt1.Text = txt1.Text & a(i) & Space(4)
Next i
txt1.Text = txt1.Text & vbNewLine
For i = 0 To 2
txt1.Text = txt1.Text & (a(i) * x) & Space(4)
Next i
خلال شفرة الامر Read/Multiple قمنا بالاتي:
تعريف العنصر X المراد ضربه بالمصفوفة، ثم تعريف مصفوفة احادية (a) بعدها قمنا بقراءة العنصر ثم قراءة المصفوفة بعبارة For وكلا القراءتين تمت بطريقة الدالة Inputbox بعدها تم طباعة العنصر في مربع النص ثم طبعنا المصفوفة في سطر جديد في مربع النص وذلك باستخدام الطريقة vbnewline وتعني تحريك المؤشر الى سطر جديد ، اما الدالة space(4) فتم استخدامها لحجز فراغات بقدر اربع خانات ويمكن زيادة او تقليل هذا العدد من الفراغات حسب الرغبة ، لكي تظهر فراغات بين عناصر المصفوفة .