7olom rai3
مرحبا بك أيها الزائر الكريم أرجو أن تستفيدو من المنتدى
7olom rai3
مرحبا بك أيها الزائر الكريم أرجو أن تستفيدو من المنتدى
7olom rai3
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


7olom rai3
 
الرئيسيةالبوابةأحدث الصورالتسجيلدخول
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
سحابة الكلمات الدلالية
المواضيع الأخيرة
» مسجات Sms منوووعة، مسجات حب، مسجات الشوق، مسجات وداع،مسجات اعتذار، مسجات عتاب،
حلقات التكرار في باسكال Icon_minitimeالأحد يناير 29, 2012 6:35 pm من طرف Admin

» مسجات حب = مسجات عداب = مسجات بكء مسجات فراق2012
حلقات التكرار في باسكال Icon_minitimeالأحد يناير 29, 2012 6:34 pm من طرف Admin

» مسجات رومامسية وهمسات حب
حلقات التكرار في باسكال Icon_minitimeالأحد يناير 29, 2012 6:33 pm من طرف Admin

» مشاحنات الآباء سبب صداع الأطفال
حلقات التكرار في باسكال Icon_minitimeالأحد يناير 29, 2012 6:18 pm من طرف Admin

» رائحة الفم الكريهة : الأسباب وطرق العلاج المنزلية
حلقات التكرار في باسكال Icon_minitimeالأحد يناير 29, 2012 6:14 pm من طرف Admin

» فطريات الفم، داء المبيضات الفموي، قلاع الفم، السلاق Oral thrush
حلقات التكرار في باسكال Icon_minitimeالأحد يناير 29, 2012 6:11 pm من طرف Admin

» الامساك Constipation
حلقات التكرار في باسكال Icon_minitimeالأحد يناير 29, 2012 6:06 pm من طرف Admin

» الغازات، التجشؤ، الانتفاخ Bloating, belching, intestinal gas
حلقات التكرار في باسكال Icon_minitimeالأحد يناير 29, 2012 5:58 pm من طرف Admin

» القولون العصبي، متلازمة تهيج الأمعاء الغليظة Irritable bowel syndrome
حلقات التكرار في باسكال Icon_minitimeالأحد يناير 29, 2012 5:37 pm من طرف Admin

نوفمبر 2024
الأحدالإثنينالثلاثاءالأربعاءالخميسالجمعةالسبت
     12
3456789
10111213141516
17181920212223
24252627282930
اليوميةاليومية
التبادل الاعلاني

انشاء منتدى مجاني




 

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

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



عدد المساهمات : 116
نقاط : 343
تاريخ التسجيل : 16/01/2012

حلقات التكرار في باسكال Empty
مُساهمةموضوع: حلقات التكرار في باسكال   حلقات التكرار في باسكال Icon_minitimeالثلاثاء يناير 17, 2012 8:31 pm

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



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


الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://7olomrai3.forumalgerie.net
 
حلقات التكرار في باسكال
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
7olom rai3 :: الفئة الأولى :: التعليم-
انتقل الى: