الجمل الشرطية CASE Statement in Pascal
رأينا في الدروس السابقة مذخل الى الجمل الشرطية و رأينا IF - ELSE
ويمكن تحقيق مجموعة من الشروط التي تغنينا عن إستعمال عدد كبير من الأسطر في البرمجة بلغة باسكال
بطريقة أخرى تشبة أداة الشرط IF ولكنها ابسط منها من حيث الأسطر البرمجية و تحقيق عدد لابأس به من الشروط
البرمجية التي تحقق أهداف المبرمجين وهده الأداة هي
CASE
وككل تعليمة خاصة بالبرمجة بالباسكال فإن CASE لها صيعة محددة تكتب بها لينفدها الكمبيلر وهي كالتالي:
Case (Expression) of
;b1 : r1
;b2 : r2
.....
;bn:rn
else
.......
;end
ونلاحظ أنه يمكننا إستعمال ELSE في حال لم يتحقق أي شرط مقترح ضمن البلوك الخاص بالتعليمة Case
حيث أن القيم b1...bn هي تسميات قيم الإدخال و التي يمكن أن تكون هدد أرف او قيم منطقية Boolean
قد يعجبك ايضا
و القيم r1...rn فهي التعليمات و الاسطر البرمجية الخاصة بقيم الإدخال و التي تحقق إحتياجات المبرمجين
و سيقوم الكومبيلر بتنفيدها وفق تسلسل معين حتى و ان لم تكن مرتبة الاسطر
أما في حال عدم تطابق اي سطر برمجي للحالة المذكورة مع القيم المسندة لها فسينفذ ما بعد التعليمة Else
او لا يعطينا نتائج إذا إستغنينا عن التعليمة النافية للتعليمات Else
إذن نلاحظ المثال الظاهر في الصورة السابقة وهو مثال عن حساب معدل مجموعة من التلاميذ مع إعطاء الملاحظات مع
كل شرط محقق حسب المعدلات المذخلة من طرف المستخدم
ونلاحظ كم من IF-ELSE إستعملت في هذا المثال و كم من سطر برمجي
إذن سنحاول إستعمال التعليمة CASE في هذا المثال
إذن قمنا بتعويض if-else بالتعليمة Case
واختصرنا عدد كبير من الأسطر البرمجية
اولا نطلب من المستخدم بإذخال المعدل و بعد أن نستقبل القيمة من المستخدم
يبدأ البرنامج بفحص القيمة و ضمن أي سطر توجد و في حال عدم وجود أي شرط محقق في القيم الأولى
فسينفذ البرنامج السطر الذي بعد التعليمة Else
و في الفيديو الموالي سنشرح كل ما سبق مع أمثة