القرية التعليمية
اعداد : الحاسب الآلي عادل عبدالله الحربي

  الدرس الثاني عشر
تكرار Do While وتكرار Do Loop While
يقوم تكرار Do While باختبار شرط معد مسبقا قبل أن يقوم بتنفيذ أية خطوة فإن كانت قيمة أو ناتج اختباره صحيحا True فإنه يقوم بتنفيذ مجموعة أوامر ويستمر في تنفيذها حتى تصبح قيمة الشرط False عندئذ يتم الخروج من هذا التكرار.
والصيغة العامة هي (كما في شكل1) ويعيد التكرار قيمة الشرط، فإما أن تكون قيمة صحيحة True أو قيمة خاطئة False ونستطيع من خلال المثال (شكل2) رؤية عملها.
حيث نلاحظ في المثال السابق أمرين:
1 أننا استخدمنا متغيراً باسم: Degree.
2 أننا أسندنا له القيمة: واحد.
ثم بدأ التكرار بشرط أن تكون قيمة المتغير Degree أقل من خمسة أو تساويها فإذا تحقق هذا الشرط فسيتم تنفيذ الأوامر والتعليمات التي بداخل التكرار ونلاحظ أن داخل التكرار زيدت قيمة المتغير Degree الذي يتم اختباره في كل دورة من دورات التكرار ثم بعدها تظهر رسالة بقيمة المتغير Degree ثم يعيد التكرار نفسه مرة أخرى باستخدام Loop ليعود من جديد بتكرار الخطوات السابقة وتبدأ دورة جديدة واختبار جديد لقيمة المتغير Degree وهكذا فإن لم يتحقق الشرط في المرة الأخيرة من هذا التكرار فسيتم الخروج من هذا التكرار وتكملة تنفيذ باقي أجزاء البرنامج.
تكرار Do Loop While ويعمل هذا النوع من التكرارات بطريقة مختلفة عن التكرار السابق حيث إنه يدخل في جسم التكرار قبل أن يقوم بأية عملية اختبار وفي نهاية التكرار يقوم باختبار قيمة متغير ليرجع بذلك إما القيمة True قيمة صحيحة، وإما القيمة False قيمة خاطئة، فإن أرجع القيمة الصحيحة فسيعاد تنفيذ الأوامر من أول التكرار ... وهكذا..
والصيغة العامة لهذا النوع من التكرارات (كما في شكل3).
ويمكننا توضيح طريقة عملها من خلال (المثال شكل4).
ويبين المثال السابق طريقة عمل ال Do Loop While حيث تم تعريف متغير باسم Degree يحمل قيمة وهي رقم واحد، ثم بدأ التكرار بكلمة Do ثم طلب طباعة قيمة المتغير Degree الذي يحمله، ثم زيدت قيمته لتصبح: اثنين.
ثم في السطر الأخير قيد تكرار هذه العبارات بشرط أن تكون قيمة المتغير أقل من واحد وقد أصبح الآن اثنين لنعني بذلك أنه لن يتم إعادة تكرار الجمل السابقة مرة أخرى نظرا لأن قيمة الشرط قد أصبحت خاطئة False ليتم بذلك استكمال تنفيذ باقي الشفرة.
تكرار Do Until وتكرار Do Loop Untilيتصرف هذا النوع من التكرارات بطريقة مزدوجة نسبيا فهو ينفذ الأوامر والتعليمات الموجودة بداخله حتى يصبح الشرط صحيحا ولتقريب هذا المفهوم أكثر يمكننا عرض المثال (شكل5).
حيث نرى في هذا المثال أنه قد تم تعريف المتغير Degree وإسناد القيمة واحد له ثم بدأنا في شرط التكرار الذي إن تحقق فسيخرج من التكرار وطالما أنه لم يتحقق فسيتم تنفيذ الأوامر والتعليمات الموجودة داخل التكرار حتى تصبح القيمة: True عندها سيخرج من التكرار فهو يعمل بطريقة عكسية للتكرار السابق.
تكرار Do Loop Until وهو يعمل ويستمر حتى يصبح الشرط صحيحا Trueولكن اختبار الشرط يكون في آخر التكرار وليس في أوله وصيغته العامة (هي كما في شكل6).
حيث نرى من خلال المثال السابق أنه سيتم تنفيذ محتويات التكرار من الأوامر لمرة واحدة على الأقل قبل أن يتم اختبار الشرط في آخر التكرار فإن تم اختباره وكانت قيمته True فسيتم الخروج من التكرار وإلا سيعيد التكرار نفسه بإعادة تنفيذ الشفرة الموجودة بداخله وهي طباعة قيمة المتغير Degree وزيادة قيمته بمقدار واحد.
www.alnadi.org
vb2web@hotmail.com