العمليات بين المصفوفات

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

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






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

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

Dim a(3) As Integer, b(3) As Integer, c(3) As Integer
Dim i As Integer
For i = 0 To 2
a(i) = InputBox("inter any number", "array A")
txtadd.Text = txtadd.Text & a(i) & Space(4)
Next i
txtadd.Text = txtadd.Text & vbNewLine
For i = 0 To 2
b(i) = InputBox("inter any number", "array B")
txtadd.Text = txtadd.Text & b(i) & Space(4)
Next i
txtadd.Text = txtadd.Text & vbNewLine
For i = 0 To 2
txtadd.Text = txtadd.Text & (a(i) + b(i)) & Space(4)
Next i