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

التبادل الاعلاني
احداث منتدى مجاني
حلقات التكرار

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

حلقات التكرار في باسكال



حلقات التكرار في لغة باسكال

قد يتطلب الأمر في بعض البرامج أن نكرر تنفيذ مجموعة من الأوامر لعدد من المرات، أو إلى إن يصبح تعبير ما صحيح (true) أو خطأ (false).
كأن نرغب في أن يطلب برنامجنا إدخال10 أعداد من المستخدم، أو نطلب منه إدخال القدر الذي يريده من الأعداد على أن يكون العدد الأخير يساوي 0 مثلا. هنا نحن بحاجة إلى استعمال الحلقات في برنامجنا.
يوجد في لغة باسكال 3 تراكيب لعمل حلقات التكرار، وسوف نبدأ في هذا الدرس بتعلم أولى هذه الحلقات وهي حلقة FOR.
حلقة التكرار FOR:
إذا أردنا تنفيذ مجموعة من الأوامر لعدد محدد من المرات، لنقل 6 مرات.
فأمامنا خياران، الأول أن نعيد كتابة هذه الأوامر 6 مرات في البرنامج وهو أمر مزعج خاصة إذا كان المطلوب أن نعيد التنفيذ لعدد أكبر من المرات، 600 مثلا
أما الخيار الثاني (وهو الأفضل) أن نستخدم حلقة التكرار FOR في البرنامج. وبهذا فإننا تكتب الأوامر التي ترغب في تكرارها 6 مرات داخل حلقة For مرة واحدة فقط
كيف؟

كهذا :
FOR i:=1 TO 6 DO
write('@');
هنا استعملنا حلقة FOR لتكرار أمر الطباعة write ('@') لستة مرات
هذا البرنامج سوف يطبع الأعداد من 1 إلى 20

PROGRAM example1 (input,output);
VAR
i: integer;
BEGIN
FOR i:=1 TO 20 DO
Writeln ( i);
END.

والآن لاحظ هذا البرنامج الذي يطبع نفس الأعداد ولكن بالعكس من 20 إلى 1

PROGRAM example1 (input, output);
VAR
i: integer;
BEGIN
FOR i:=20 DOWNTO 1 DO
Writeln ( i);
END.
هل لاحظت الفرق بين استخدام TO و DOWNTO داخل حلقة FOR؟
في الأمثلة السابقة كانت هناك عبارة واحدة نرغب في تكراره، أي أن جسم الحلقة مكون من عبارة واحدة فقط، ولكن يمكن لجسم الحلقة أن يتكون من عدة عبارات، وفي هذه الحالة يجب أن تحدد بداية ونهاية جسم الحلقة بـ BEGIN و END.
www.monimay@maktoob.com
monimay20@yahoo.com
monimay123@hotmail.com
0912404872

تعاليق: 1

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

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

لا أحد

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


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