Monimay
زائرنا نرجو منك التسجيل لمشاهدة المحتوي

Monimay - العاب

كتب الكترونية لغات برمجة برامج العاب كليبات افلام اغاني


بحـث
 
 

نتائج البحث
 


Rechercher بحث متقدم

المواضيع الأخيرة
»  في احد السجون
الأربعاء يونيو 26, 2013 2:22 am من طرف monimay

» حدث في احد البيوت
الأربعاء يونيو 26, 2013 2:16 am من طرف monimay

» سف الاشباح
الأربعاء يونيو 26, 2013 2:12 am من طرف monimay

» تجربتي بعد عملية تكبير صدري بالسيليكون بالتفصيل
الإثنين ديسمبر 31, 2012 9:01 am من طرف melia

» ..☼.. التجمـــ 1ــــع الأول لأحلى وأنضر بشرة لبنات حواء.. ☼..
الخميس فبراير 02, 2012 3:16 pm من طرف فقيرة الحب

» حلقات التكرار
الإثنين أبريل 25, 2011 8:11 am من طرف IDRISS

» الدرس الثاني Ms-Dos
الأحد أبريل 04, 2010 5:04 am من طرف monimay

» الدرس الثاني Ms-Dos
الأحد أبريل 04, 2010 5:02 am من طرف monimay

» اوامر الدوس الدرس الاول
الأحد أبريل 04, 2010 4:55 am من طرف monimay

التبادل الاعلاني
احداث منتدى مجاني
case عبارة

الخميس نوفمبر 19, 2009 12:36 pm من طرف monimay

عبارة 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.

















www.monimay@maktoob.com
monimay20@yahoo.com
monimay123@hotmail.com
manga
0912404872

تعاليق: 0

احصائيات
هذا المنتدى يتوفر على 19 عُضو.
آخر عُضو مُسجل هو akai فمرحباً به.

أعضاؤنا قدموا 63 مساهمة في هذا المنتدى في 51 موضوع
المتواجدون الآن ؟
ككل هناك 2 عُضو متصل حالياً :: 0 عضو مُسجل, 0 عُضو مُختفي و 2 زائر

لا أحد

[ مُعاينة اللائحة بأكملها ]


أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 21 بتاريخ الأحد سبتمبر 10, 2017 4:49 pm