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

انضم إلى المنتدى ، فالأمر سريع وسهل

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

Monimay - 

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


بحـث
 
 

نتائج البحث
 


Rechercher بحث متقدم

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

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

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

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

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

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

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

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

» اوامر الدوس الدرس الاول
حلقات التكرار I_icon_minitimeالأحد أبريل 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 موضوع
المتواجدون الآن ؟
ككل هناك 5 عُضو متصل حالياً :: 0 عضو مُسجل, 0 عُضو مُختفي و 5 زائر

لا أحد

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


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