|
عبارة CASE في باسكال
عبارة CASE في باسكال
تستخدم عبارة Case (الحالة) في المواقع التي يراد فيها الاختيار بين عدد من البدائل.
تستخدم عبارة الـ CASE كبديل عن استعمال عدد من عبارات IF - ELSE المتتالية، والتي غالبا ما تكون أكثر تعقيدا، وصعبة التتبع والفهم
أما باستعمال الـ CASE فإن البرنامج يصبح أكثر وضوحا، وسهل التتبع
الصيغة العامة لـ CASE:
CASE selector OF
constent1 :
statement1;
constent2 :
statment2;
.
.
.
.
END;
selector هو عبارة عن متغير من أي نوع مدرج (راجع درس الأنواع المدرجة)
constent1 و constent2 هي قيم يمكن أن يأخذها المتغير selector
فإذا كانت قيمة selector هي constent1 يتم تنفيذ العبارت التالية لها في هيكل CASE وهي statement1.
وإذا كانت قيمته constent2 تنفذ العبارة statment2 وهكذا.
لاحظ المثال التالي:
PROPGRAM ex1 (input, output);
VAR
lettergrade : char;
BEGIN
wirteln('Enter your last grade: ');
readln(lettergrade);
CASE lettergrade OF
'A': writeln('4.0');
'B': writeln('3.0');
'C': writeln('2.0');
'D': writeln('1.0');
'F': writeln('0.0');
END
END.
في هذا المثال سوف يطبع البرنامج الدرجة المقابلة للتقدير الذي حصلت عليه مؤخرا
في بعض الأحيان قد نرغب في تنفيذ نفس الأوامر لعدة قيم للمتغير selector، في هذه الحالة تذكر هذه القيم وتفصل بينها بالفاصلة
PROPGRAM ex2 (input, output);
VAR
number : Integer;
BEGIN
wirteln('Enter a number between 1 - 10: ');
readln(number);
CASE number OF
1, 3, 5, 7, 9 : writeln('The number is odd');
2, 4, 6, 8, 10: writeln(' the number is even');
END
END.
طبعا إذا أردنا تنفيذ أكثر من أمر واحد في كل حالة يجب أن نحيطها بـ BEGIN و END.
المزيد من المواضيع
تعلم برمجة Pascal الدرس الثاني عشر - انشاء وحداتك الخاصّه
تعلم برمجة Pascal الدرس الحادي عشر - ملفات المعلومات
تعلم برمجة Pascal الدرس العاشر - الملفات النصيه
تعلم برمجة Pascal الدرس التاسع - الإجراءات و الدوال
تعلم برمجة Pascal الدرس الثامن - Types, Records و Sets
تعلم برمجة Pascal الدرس السادس - التكرار
تعلم برمجة Pascal الدرس الخامس - اتخاذ القرار
تعلم برمجة Pascal الدرس الثالث - المتغيرات و الثوابت
تعلم برمجة Pascal الدرس الثاني - الالوان , الاحداثيات , النوافذ و الصوت
تعلم برمجة Pascal الدرس الاول - مقدمه
حلقات التكرار في باسكال
حلقات التكرار في باسكال
جملة IF - ELSE
الدرس التاسع : الدوال القياسية
الدرس الثامن : التعابير الرياضية
الدرس السابع : قاعدة الأولويات
الدرس السادس : أمر Read والأمر Readln
الدرس الخامس : أمر Write والأمر Writeln
الدرس الرابع : الثوابت في البرنامج
الدرس الثالث : المتغيرات في برنامج الباسكال
الدرس الثاني : أنواع البيانات في الباسكال
الدرس الأول : أساسيات في الباسكال
تاريخ لغة الباسكال
|