|
| الصفحة التعليمية
مفهوم المصفوفات: هي تخزين قائمة من البيانات تحت اسم متغير واحد «متغير ذات دليل» الأمر DIM هو أمر تعريف مصفوفة في الذاكرة.
التركيب اللغوي:...........«الدليل» اسم المتغير، «الدليل» اسم المتغير DIM رقم سطر.
مثال توضيحي: 10 DIM A )6(, B$ )5(
وهذا يعني إنشاء مصفوفة عددية A وعدد عناصرها 7 وأخرى مصفوفة حرفية B$ وعدد عناصرها 6 لا أن المصفوفة تبدأ العدد من الصفر.
A)0( A)1( A)2( A)3( A)4( A)5 A)6(
تعني مصفوفة عددية باسم A وعدد عناصرها 7.
B$)0( B$)1( B$)2( B$)3( B$)4( B$)5(
تعني مصفوفة حرفية باسم B$ وعدد عناصرها 6.
مكونات برنامج المصفوفات:
يتكون برنامج المصفوفات من ثلاثة أجزاء هي:
أ- الإعلان «تعريف المصفوفة» DIM
ب- تخزين البيانات «حفظ البيانات»
FOR FOR
INPUT READ
NEXT NEXT
DATA
ج- الاسترجاع «الاسترجاع يتكون من مجموعة الجمل تعتمد على مدى فهم المطلوب»
ملاحظة: دائماً يكون الحفظ والاسترجاع باستخدم التكرار NEX FOR لحفظ البيانات واسترجاع البيانات للتعامل معها.
مثال: اكتب برنامجاً يقرأ اسماء واعمار عشرة اشخاص في مصفوفتين ثم يطبعها.
10- DIM N$ )9(, A )9(
11-FOR I = 0 TO 9
12- READ N$ )I(, A )I(
13- NEXT I
14- DATA زALIس, 17, زOSMANس, 13, زAHMADس, 18, زMOHAMEDس, 20, ز ZYADس, 14, زFAREDس, 15, زABDس, 19, زABDس ALAZESس,25, زABRAHEMس,14, زSALMس, 24, زFAREDس, 15, زABDس,19, زABD ALAZEZس, 25, زABRAHEMس, 14, زSALMس, 24.
15- FOR I =0 TO 9
16- PRINT N$ )I(, A )I(.
17- NEXT I
18- END
وهنا يتم تقسم البرنامج الى ثلاثة اجزاء هي الاعلان هي الجملة «10»، الحفظ هي الجمل «11، 12، 13، 14»، الاسترجاع الجمل «15، 16، 17» وهنا نلاحظ ان الاعلان والاسترجاع باستخدام التكرار FOR NEXT. وان الاسترجاع هو الطباعة المباشرة هو النوع الأول من الاسترجاع.
مثال: اكتب برنامجاً يقرأ أسماء وأعمار خمسة عشر في مصفوفتين ثم يطبع اسماء الاشخاص الذين اعمارهم اكبر من 15 سنة
10-DIM N$ )14(, A )14(.
20 FOR I = 0 TO 14.
30 READ N$ )I(, A )I(.
40 NEXT I
50 DATA زALIس ,15, زOMARس, 12, ZEADس, 19 .....................................
60 FOR I = 0 TO 14
70 IF A )I(* 15 THEN PRINT N$ )I(
80 NEXT I
90 END
وهنا نجد ان الطباعة كانت مشروطة بشرط ان يطبع اسم الشخص اذا كان عمره اكبر من 15 سنة وهي الجمل «60و 70و80» وهي النوع الثاني من الاسترجاع في المصفوفات.
مثال: اكتب برنامجاً يدخل اسماء ودرجات عشرين طالبا في مصفوفتين ثم يطبع اسم ودرجة الطالب الحاصل على أعلى درجة.
10-DIM N$ )19(, D)19(
20 FOR I = O TO 19
30 INPUT N$ )I(, D)I(
40 NEXT I
50 M = D )0(: L=0
60 FOR I = 1 TO 19
70 IF D )I( * M THEN M= D )I(: L=I
80 NEXT I
90 PRINT N$)L(, M
100 END
وهنا نجد ان الاسترجاع هنا لطباعة اعلى او اقل قيمة «اسم الحاصل اعلى او اقل قيمة» وهي الجمل من 50 و60 و70 و80 و90 وفي حالة اقل درجة تستبدل علامة المقارنة في الجملة 70 «<» اصغر فقط فتصبح كالآتي:
70-IF D )I( < M THEN M = D )I(: L=I
من هنا نلاحظ ايضا ان M هو متغير الاكبر والاصغر واما L متغير المسلسل الاكبر او الاصغر. وهو النوع الثالث من الاسترجاع.
مثال: اكتب برنامجاً يدخل أسماء ورواتب مائة موظف في مصفوفتين ثم اجعل البرنامج يقوم بطباعة المجموع الكلي والمتوسط الحسابي للرواتب.
10-DIM N$ )99(, P )99(
20 FOR I = 0 TO 99
30 INPUT N$ )I(, P )I(
40 NEXT I
50 S=0
60 FOR I = 0 TO 99
70 S = S+P )I(
80 NEXT I
PRINT S, S/100
100 END
وهنا نجد ان الجمل من 50 و60و 70 و80 هي جمل حساب المجموع الكلي للرواتب اما الجملة 90 لطباعة المجموع الكلي للرواتب والمتوسط الحسابي لأن «المتوسط = المجموع الكلي/ عدد الرواتب» وهو النوع الرابع من الاسترجاع.
مثال: اكتب برنامجاً يدخل أسماء وعام إسلام مجموعة من المسلمين الجدد لدى أحد مراكز الدعوة ثم اجعل البرنامج يقوم بطباعة أسماء المسلمين قبل عام 1414ه.
;N «ادخل عدد المسلمين الجدد 10» 10- INPUT
20 N1 = N-1
30 DIM N$ )N1(, Y)N1(
40 FOR I = O TO N1
50 INPUT N$ )I(, Y )I(
60 NEXT I
70 FOR I = O TO N1
80 IF Y )I(< 1414 THEN PRINT N$ )I(
90 NEXT I
100 END
وفي هذا المثال نجد ان عدد عناصر المصفوفة مجهول لذا تم كتابة الجملة 10 لادخال عدد العناصر والجملة 20 لحساب الدليل المصفوفة للتعامل معها.
ومن هنا نخلص الى الآتي ان مكونات برنامج المصفوفات من ثلاثة أجزاء هي على التوالي:
أ- الاعلان «تعريف» المصفوفات DIM
ب- تخزين البيانات في المصفوفات.
FOR FOR
INPUT READ
NEXT NEXT
DATA
ج- استرجاع البيانات للتعامل معها. ويوجد العديد من انواع الاسترجاع المطلوب معرفتها.
1- الطباعة المباشرة: FOR
PRINT
NEXT
2- الطباعة المشروطة FOR
المطلوب THEN PRINT الشرط IF NEXT
3- طباعة اعلى او اقل قيمة: اول عنصر في المصفوفة العددية )0(..... = M
FOR I = 1 TO ...
M THEN M= .... )I( الشرط IF.... )I(
NEXT
PRINT M
وهنا نلاحظ اذا طلب اسم الحاصل على اعلى او اقل قيمة تزاد مع الجملة الاولى L= 0: والجملة الثالثة «جملة المقارنة» في النهاية: L= I والجملة الاخيرة «جملة الطباعة» تكتب كالآتي:
M، $ )L(.... PRINT اي الطباعة من المصفوفة الحرفية الاسم رقم L لأن L متغير المسلسل الذي تم اضافة الاسترجاع الثالث.
4- طباعة المجموع الكلي والمتوسط الحسابي: S=O
FOR
المصفوفة العددية S= S+ ... )I(
NEXT
عدد العناصر/ PRINT S, S
وهنا نجد ان الجملة الاولى لتعريف متغير التجميع S والجملة الثالثة لتجميع عناصر المصفوفة S =S +... )I( والجملة الأخيرة للطباعة S المجموع «عدد العناصر/S» المتوسط الحسابي.
|
|
|
|
|
