انت هنا الان : شبكة جامعة بابل > موقع الكلية > نظام التعليم الالكتروني > مشاهدة المحاضرة
الكلية كلية العلوم للبنات
القسم قسم الحاسبات
المرحلة 3
أستاذ المادة رسل محمد نعمة
13/11/2018 17:58:08
ترتيب المصفوفاتSorting Array: يمكننا ترتيب المصفوفات النصية حسب الترتيب الابجدي , كما يمكننا ترتيب المصفوفات الرقمية من الاصغر الى الاكبر لعمل ذلك يتم من خلال استخدام الدالة Sort التابعة للفئة Array ويمكننا استخدامها كما يلي : Dim NamesArray(4) As String NamesArray(0)= “Suha” NamesArray(1)= “Ali” NamesArray(2)= “Ahmed” NamesArray(3)= “Jon” NamesArray(4)=”Sarah” Array.Sort(NamesArray) Listbox1.Items.AddRange(NamesArray) الدالة AddRange تسمح باضافة جميع عناصر المصفوفة الى الاداة ListBox بدل من استخدام For واضافة كل عنصر على حده من خلال الدالة Add.
قلب عناصر المصفوفه Reverse Array: عملية قلب عناصر المصفوفه ليصبح اخر عنصر هو اول عنصر وهكذا من خلال استخدام الدالة Reverse التابعة لنفس الفئة Array.
*اكتب برنامج يقوم بادخال n من العناصر الى المصفوفه A_array وطباعة عناصر المصفوفة قبل اجراء عملية الترتب وعرض عناصرها بعد الترتيب وبعد عكس عناصر المصفوفة في ListBox ؟
المصفوفات المتعدده الابعاد اشهر انواعها هي المصفوفات الثنائية ويتم الاعلان عنها بالصيغة التالية: Dim Array_name(n,n) As Data_type ويمكننا ايضا الاعلان عنها بالصيغة التالية: Dim Array_name(0 to n,0 to n) As Data_type ويتم اسناد القيم لها اما بالصوره التالية: Dim myArray(1, 2) As Integer myArray(0, 0) = 7 myArray(0, 1) = 2 myArray(0, 2) = 5 myArray(1, 0) = 3 myArray(1, 1) = 8 myArray(1, 2) = 6 او من خلال استخدام For كما هو مبين: For row = 0 To 1 For col = 0 To 2 Listbox1.Items.Add(myArray(row, col)) Next ترتيب المصفوفاتSorting Array: يمكننا ترتيب المصفوفات النصية حسب الترتيب الابجدي , كما يمكننا ترتيب المصفوفات الرقمية من الاصغر الى الاكبر لعمل ذلك يتم من خلال استخدام الدالة Sort التابعة للفئة Array ويمكننا استخدامها كما يلي : Dim NamesArray(4) As String NamesArray(0)= “Suha” NamesArray(1)= “Ali” NamesArray(2)= “Ahmed” NamesArray(3)= “Jon” NamesArray(4)=”Sarah” Array.Sort(NamesArray) Listbox1.Items.AddRange(NamesArray) الدالة AddRange تسمح باضافة جميع عناصر المصفوفة الى الاداة ListBox بدل من استخدام For واضافة كل عنصر على حده من خلال الدالة Add.
قلب عناصر المصفوفه Reverse Array: عملية قلب عناصر المصفوفه ليصبح اخر عنصر هو اول عنصر وهكذا من خلال استخدام الدالة Reverse التابعة لنفس الفئة Array.
*اكتب برنامج يقوم بادخال n من العناصر الى المصفوفه A_array وطباعة عناصر المصفوفة قبل اجراء عملية الترتب وعرض عناصرها بعد الترتيب وبعد عكس عناصر المصفوفة في ListBox ؟
المصفوفات المتعدده الابعاد اشهر انواعها هي المصفوفات الثنائية ويتم الاعلان عنها بالصيغة التالية: Dim Array_name(n,n) As Data_type ويمكننا ايضا الاعلان عنها بالصيغة التالية: Dim Array_name(0 to n,0 to n) As Data_type ويتم اسناد القيم لها اما بالصوره التالية: Dim myArray(1, 2) As Integer myArray(0, 0) = 7 myArray(0, 1) = 2 myArray(0, 2) = 5 myArray(1, 0) = 3 myArray(1, 1) = 8 myArray(1, 2) = 6 او من خلال استخدام For كما هو مبين: For row = 0 To 1 For col = 0 To 2 Listbox1.Items.Add(myArray(row, col)) Next
المادة المعروضة اعلاه هي مدخل الى المحاضرة المرفوعة بواسطة استاذ(ة) المادة . وقد تبدو لك غير متكاملة . حيث يضع استاذ المادة في بعض الاحيان فقط الجزء الاول من المحاضرة من اجل الاطلاع على ما ستقوم بتحميله لاحقا . في نظام التعليم الالكتروني نوفر هذه الخدمة لكي نبقيك على اطلاع حول محتوى الملف الذي ستقوم بتحميله .
|