تلخيص مبسط لقاعدتي for.. next و Do while والمصفوفة

حلقات التكرار

في هذه القاعدة يتم تكرار عدد من الخطوات عدداً محدداً من المرات..
لها قاعدتين هما: For … Next و Do While

For … Next Do While

تكرار مجموعة من العمليات بعدد محدد من المرات تستمر حلقة التكرار ما دام الشرط صحيحاً

مثال: مثال:

كأن أقول لطالبة امشي 10 خطوات. كأن أقول لطالبة امشي حتى أقول لكي توقفي.

For … Next [ الأمر المراد تنفيذه يوضع بين For و Next ]

الصيغة العامة:

For counter = start TO end [ step]

Statements

Next

مثال 1 : إذا أردنا طباعة كلمة Computer عشر مرات باستخدام قاعدة For … Next ؟

For B = 1 to 10

Print Computer

NEXT

مثال 2 : إذا أردنا طباعة الأعداد من 1 إلى 10 باستخدام قاعدة For … Next ؟

For m = 1 to 10

Print m

NEXT

مثال 3 : إذا أردنا طباعة الأعداد من 1 إلى 10 بشكل تنازلي باستخدام قاعدة For … Next ؟

مقدار الزيادة
(-1) أي سيتم نقصان العّداد بقيمة 1 وبذالك يتم طباعة الأعداد تنازلياً من10 إلى 1

For A = 1 to 10 Step -1

Print A

NEXT

مثال 4 : إذا أردنا طباعة الأعداد الفردية من 1 إلى 10 باستخدام قاعدة For … Next ؟

For R = 1 to 10 Step 2

مقدار الزيادة خطوتين وبذالك يتم طباعة الأعداد الفردية[1-3-5-7-9]

Print R

NEXT

Do While

الصيغة العامة:

Counter = start

end Do While

Statements

Loop

مثال 1 : إذا أردنا طباعة الأعداد من 1 إلى 10 باستخدام قاعدة Do while ؟

M = 1

Do while M < = 10

M = M + 1

Loop

مثال 2 : إذا أردنا طباعة الأعداد من 1 إلى 10 بشكل تنازلي باستخدام قاعدة Do while ؟

M = 10

M > = 1 Do while

M = M - 1

Loop

ملاحظة:

للطباعة من العدد الأكبر إلى الأصغر تكون الاشاره اصغر من أو = < بالنسبة للعدد

للطباعة من العدد الأصغر إلى الأكبر تكون الاشاره اكـــبر من أو = > بالنسبة للعدد

FOR …NEXT	Do while	المعنى
Step1	M= M+1	خطوة خطوة (زيادة)
Step2	M= M+2	خطوة ويترك خطوة (زيادة)
Step3	M= M+3	خطوة ويترك خطوتين (زيادة)
Step-1	M= M-1	خطوة خطوة (نقصان)
Step-2	M= M-2	خطوة ويترك خطوة (نقصان)
Step-3	M= M-3	خطوة ويترك خطوتين (نقصان)

المصفوفات

تعريفها [ صـ 60 ]

فوائدها [ صـ 61 ]

الصيغة العامة:

Dim var1 (n) As type

Dim لتعريف المصفوفة

var1 اسم المصفوفة

(n) عدد عناصر المصفوفة بمعنى لو كان عدد عناصر المصفوفة 10 نكتب (9)

type نوع المتغيرات داخل المصفوفة

مثال1 : إذا أردتِ أن تقومي بحفظ أسماء 50 طالبة فلابد أن تعرفين متغير للخمسين طالبة مما يؤدي إلى كبر حجم البرنامج والحل المناسب أن تستخدمي مصفوفة مكونة من 50 عنصر....

Dim name (49) As string

طريقة توزيع القيم داخل المصفوفة :

[ صـــ 62 ]

إدخال وقراءة وطباعة قيم المصفوفة:

مثال 2 : لإدخال درجات 15طالبة في مصفوفة ؟ ( نستخدم قاعدة for.. next لوجود تكرار وهو درجات 15 طالبة )

Dim D (14) AS single (D) : اسم المصفوفة

For M = 0 TO 14 (M) : اسم العدّاد

("أدخل الدرجة D (M) = in put Box("

Next

هي عبارة تظهر للمستخدم في الأداة
in put Box

مثال3 : لإدخال درجات و أسماء 15 طالبة ؟ [ نستخدم مصفوفتين وحده للدرجات و وحده للأسماء ]

Dim D (14) AS single (D) : اسم مصفوفة الدرجات

Dim F (14) AS string (F ) : اسم مصفوفة الأسماء

For M = 0 TO 14 (M) : اسم العدّاد

("أدخل الدرجة D (M) = in put Box("

("أدخل الأسم F (M) = in put Box("

Next

مثال4 : لطباعة درجات و أسماء 15 طالبة ؟

Dim D (14) AS single (D) : اسم مصفوفة الدرجات

Dim F (14) AS string (F ) : اسم مصفوفة الأسماء

For M = 0 TO 14 (M) : اسم العدّاد

D (M) Print

F (M) Print

Next

ملاحظة:

إذا كانت السؤال إدخال للمصفوفة نستخدم [in put Box ]

إذا كانت السؤال طباعة للمصفوفة نستخدم [ Print ]

بارك الله فيك على الجهود المبذولة
والفائدة عامة للطالبات ولجميع الفئات

لك flower