[عالم كول - alamcool]
صل على النبى عليه افضل الصلاه والسلام

انت لست مسجل بمنتدى عالــــم كـــول
[عالم كول - alamcool]
صل على النبى عليه افضل الصلاه والسلام

انت لست مسجل بمنتدى عالــــم كـــول
[عالم كول - alamcool]
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


منتدى ترفيهى اسلامى افلام وثائقيه القران كاملا اغانى اسلاميه احدث البرامج
 
الرئيسيةالرئيسية  البوابةالبوابة  أحدث الصورأحدث الصور  ضع التسجيلضع التسجيل  دخولدخول  التسجيلالتسجيل  

 

 الدرس الثانى عشر: حلقات التكرار في لغة باسكال

اذهب الى الأسفل 
كاتب الموضوعرسالة
ahmed47

ahmed47


ذكر 64652
عدد المساهمات : 73
تاريخ التسجيل : 27/01/2013

الدرس الثانى عشر: حلقات التكرار في لغة باسكال Empty
مُساهمةموضوع: الدرس الثانى عشر: حلقات التكرار في لغة باسكال   الدرس الثانى عشر: حلقات التكرار في لغة باسكال Icon_minitimeالثلاثاء مارس 19, 2013 5:39 am

الدرس الثانى عشر: حلقات التكرار في لغة باسكال




قد يتطلب الأمر في بعض البرامج أن نكرر تنفيذ مجموعة من الأوامر لعدد من المرات، أو إلى إن يصبح تعبير ما صحيح (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.




تعلم لغة البسكال منتدى عالم كول




الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
الدرس الثانى عشر: حلقات التكرار في لغة باسكال
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» الدرس الحادى عشر عبارة CASE في باسكال
» الدرس الثالث : المتغيرات في برنامج الباسكال
» الدرس السابع : قاعدة الأولويات منتدى عالم كول
» الدرس الثامن : التعابير الرياضية
» الدرس الأول : أساسيات في الباسكال

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
[عالم كول - alamcool] :: 
قسم لغات البرمجه
 :: منتدى خاص لتعليم لغة الباسكال
-
انتقل الى: