حلقات التكرار While - For

احصائيات سريعة

اقسام على الموقع

البحث في المواد

اكثر المحتويات زيارة

الدوال في الاكسل (6,311 مشاهده)
ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) (4,095 مشاهده)
الدرس الثالث : بعض تطبيقات الدوال في اكسل (3,063 مشاهده)
تعريف الاستعلام وطريقة عرضه في آكسس، أنواع الاستعلامات، نافذة تحديد الاستعلام! (2,377 مشاهده)
الدرس الثاني: بعض الحيل لتسهيل برنامج اكسل (2,277 مشاهده)
شرح طريقة استعمال الأوتلوك مع بريد الهوتميل (2,138 مشاهده)
تغيير لغة واجهة التطبيق من عربي الى انجليزي وبالعكس لـ Windows-based applications (2,112 مشاهده)
أنواع العلاقات وطريقة الربط بين الجداول. (1,901 مشاهده)
مقدمة عامة حول الاكسل وحيل خاصة بالاكسل (1,735 مشاهده)
أنشئ قاعدة بياناتك التي ستستند إليها في تعلم طريقة ربط الجداول والاستعلامات. (1,703 مشاهده)
الدرس الأول : عمل شريحة في البوربوينت (1,554 مشاهده)
دروس في الأوفيس الأكسس - Access0- (1,472 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس . (1,464 مشاهده)
كيفية حل مشاكل الانترنت اكسبلور Internet Explorer (1,441 مشاهده)
اضافه صوت ونص لخلفيه في باور بوينت (1,338 مشاهده)
شرح طريقة التجميع Grouping في برنامج الاكسل (1,301 مشاهده)
التعرف على مكونات الكمبيوتر (1,266 مشاهده)
برنامج Windows Movie Maker لتكوين أفلام (1,244 مشاهده)
درس تعريب المجلة (1,240 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (1,229 مشاهده)
مقدمة في ربط قواعد البيانات داخل بيئة الـ .NET باستخدام الـ VB.NET (1,218 مشاهده)
كيف تجعل برنامجك أكثر تألقا وجمالا باستخدام أداة Active Skin (1,189 مشاهده)
ما هو المات لاب MATLAB؟ (1,157 مشاهده)
مقدمة عن لغة البيسك (1,120 مشاهده)
الفيجوال بيسك - مقدمة (1,080 مشاهده)

جديد مواد مع عشوائي

التحويل التلقائي للحروف ل- ل- ه إلى اسم الجلالة0---- (783 مشاهده)
النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0---النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0--- (483 مشاهده)
ضبط خيارات اللغة فى الـ Microsoft Word0--- (533 مشاهده)
استخدام لوحة المفاتيح في الـ Word0---- (698 مشاهده)
إضافة كلمة سر إلي ملفات الورد دون استخدام برامج0--- (780 مشاهده)
دمج المراسلات0-- (434 مشاهده)
وضع صورة كخلفية للنص0-- (558 مشاهده)
السماح للمستخدمين بتعديل أجزاء من ملف وورد محمي (Word2003)0--- (381 مشاهده)
كتابة الأرقام الكسرية ورموز المعادلات0-- (620 مشاهده)
درس كامل عن الدمج السهل من لوحة المفاتيح ف0-ي برنامج الـ Word (389 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (1,229 مشاهده)
دورة الأكسيس : الدرس الرابع : العلاقات0---- (655 مشاهده)
أساسيات في Access0--0 (447 مشاهده)
تصميم تقرير لطباعة البيانات0---- (486 مشاهده)
تصميم نموذج استعراض البيانات‏0--تصميم نموذج استعراض البيانات‏0-- (470 مشاهده)
تصميم نموذج إدخال‎ ‎البيانات0--- (556 مشاهده)
إنشاء قوائم خاصة باستخدام الماكرو(1)0-- (434 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (2)0-- (369 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (1)0- (325 مشاهده)
استعلامات SQL في Access - تعديل الجداول وإضافة الحقول0- (460 مشاهده)
استعلامات SQL في Access - تحديث البيانات الجدولية0-- (413 مشاهده)
الاستعلامات الإجرائية -4 (استعلام الحذف)0--- (214 مشاهده)
الاستعلامات الإجرائية -2 (استعلام الإلحاق)0--- (292 مشاهده)
تصميم تقرير لطباعة الإجمالي0--- (321 مشاهده)
استعلامات التحديد Select Query مع أمثله (1)0--- (425 مشاهده)

دروس كمبيوتر وصيانة دروس حاسب دروس مجلة درس نيوك phpnuke الدروس دروس مسنجر MSN - yahoo - Gmail دروس منتديات vBulletin دروس الجوالات والهواتف دروس السي بنل cpanel دروس اكسس access دروس بيونت شوب برو - point shop pro دروس برمجة php - mysql دروس برامج منوعة software دروس ثري دي ماكس 3D max دروس جافا سكريبت JavaScript دروس دريم ويفر DreamWeaver دروس شبكات Networks دروس سويش - swish دروس فلاش - flash دروس فيجوال بيسك Visual Basic دروس فرونت بيج - frontpage دروس فوتوشوب photoshop دروس هكر hacker crack virus > الدلفي - Delphi > حلقات التكرار While - For - Repeat-

الاسم: حلقات التكرار While - For - Repeat- حلقات التكرار While - For - Repeat-

مرات القرائه: 200 مرة/مرات

التقييم:

قم بدعوة صديق

اعلانات في الموقع على جميع الصفحات

حلقات التكرار While - For - Repeat-

حلقات التكرار While - For - Repeat

حلقات التكرار

تستخدم الحلقات لأداء عمل معين بشكل متكرر حتى يتحقق شرط معين.

ويتم إستخدامها في البرامج بشكل واسع

الحلقة التكرارية For

وهي تعد أكثر أنواع الحلقات التكرارية شيوعا

تتطلب هذه الحلقة محددتين القيمةالبدائية والقيمة النهائية إذا كانت الحلقة تصاعدية تستخدم To وإذا كانت تنازلية نستخدم كلمة DownTo .

الصيغة العامة لجملة for التصاعدية هي

for var := initial_value to end_value do

begin

statment;

end;

في المثال السابق حلقة تكرر الشيفرة الممثلة بعبارة statement حتى تصل إلى القيمة النهائية end_value . لا داعي لاستخدام begin , end إذا كان جسم التكرار يتكون من عبارة واحدة. ولكن عندما نريد إضافة العديد من السطور فنحتاج لإستخدام Begin – End

الصيغة العامة لجملة for التنازلية:

for var := initial_value DownTo end_value do

begin

statment;

end;

في المثال السابق كتلة الشيفرة يجب أن تكون initial_value أكبر من end_value وتتناقص قيمة العداد المتغير var واحداً في كل تكرار للحلقة

مثال عملي :

أنشئ مشروعاً جديداً

وأضف له زراً Button1 ومكون المفكرة Memo1 غير الخاصة Caption للزر واجعله " ابدأ " أنشئ الحدث OnClick له ، واكتب معالج الحدث كالتالي

var

I:Integer;

begin

Memo1.Clear;

for I := 0 to 9 do

Memo1.Lines.Add('هذا السطر رقم '+IntToStr(I));

end;

الآن يمكنك تشغيل البرنامج ، إضغط الزر ابدأ وشاهد عمل الحلقة …

الحلقتين التكراريتين While - Repeat

والآن بعد أن رأيت كيف تعمل حلقة for لن يكون صعباً جداً عليك أن تطبق ذات المعنى على حلقتي while , repeat

لنلقي الآن نظرة عليهما الآن.

حلقة while

تختلف حلقة while عن الحلقة For في كونها تحتوي على شرط يفحص عند بداية كل تكرار للحلقة . طالما أن الشرط محقق تستمر الحلقة في التنفيذ ويتوقف التنفيذ للحلقة عندما يكون الشرط غير محقق .

إليك الشكل العام للحلقة while

While cond_expr do

Begin

Statements;

End;

حيث يفحص البرنامج الشرط cond_expr وعند تحقق الشرط فإن البرنامج ينفذ الأوامر بين الأمرين End – Begin ويعود لقراءة الشرط مرة أخرى وهكذا يستمر في تنفيذ التكرار إلى أن يصبح الشرط غير متحقق فيخرج من التكرار

وإذا كان جسم الحلقة مؤلف من عبارة واحدة فليس هناك داعي لإستخدام Begin – End

حلقة Repeat

مثل حلقة while ولكن الحلقة While تقوم بفحص الشرط في بداية الحلقة ولكن في حالة الحلقة Repeat فإن الشرط يفحص في نهاية الحلقة

إليك هذا البرنامج الذي يبين عمل الحلقة Repeat وهو نفس مثال البرنامج للحلقة For مع تعديل سطور البرنامج

ويمكن ملاحضة ان الحلقة repeat تتنفذ على الأقل مرة واحدة ولكن الحلقة While يمكن أن لا تنفذ ولا مرة

Var

I:Integer;

begin

I:=5;

Memo1.Clear;

Repeat

Memo1.Lines.Add('هذا السطر رقم '+IntToStr(I));

Dec(I);

Until I=-1;

end;

الإجرائين Break , Continue

قبل أن ننهي الحديث عن الحلقات يجب أن نتعرف على إجرائين يساعدان على التحكم بتنفيذ البرنامج ضمن الحلقة .

- استخدم الأمر Continue لتجبر البرنامج على الانتقال إلى نهاية الحلقة متجاوزاً كل العبارات التي تليه .

- استخدم الأمر Break لتوقف عمل الحلقة مباشرة ولاتستحدم خارج الحلقات.

درس حلقات التكرار While - For - Repeat-

أضف هذه المادة في موقعك:

مواد مشابهة:

	إنجاز وحدة DLL فى لغة دلفي إنجاز وحدة DLL فى لغة دلفي (مرات المشاهدة: 167 مرات)
	الثوابت في برنامج الدلفي الثوابت في برنامج الدلفي (مرات المشاهدة: 97 مرات)
	مقدمة فى برمجة DLL (لغة دلفي) مقدمة فى برمجة DLL (لغة دلفي) (مرات المشاهدة: 311 مرات)
	الدالة Case الدالة Case (مرات المشاهدة: 89 مرات)
	الثوابت في برنامج الدلفي- الثوابت في برنامج الدلفي- (مرات المشاهدة: 235 مرات)
	الدالة Case- الدالة Case- (مرات المشاهدة: 71 مرات)
	تحميل واستدعاء دوال وإجراءات DLL تحميل واستدعاء دوال وإجراءات DLL (مرات المشاهدة: 191 مرات)
	المتغيرات في برنامج الدلفي- المتغيرات في برنامج الدلفي- (مرات المشاهدة: 240 مرات)
	تحميل واستدعاء دوال وإجراءات1 تحميل واستدعاء دوال وإجراءات1 (مرات المشاهدة: 83 مرات)
	التعرف على مشروع دلفي التعرف على مشروع دلفي (مرات المشاهدة: 245 مرات)

fot