تعلم برمجة Pascal الدرس السادس - التكرار

--------------------------------------------------------------------------------

مستوى الدرس :مبتدئ


التكرار يستخدم متى اردت اعادة تطبيق الشيفره اكثر من مره .
مثال : اذا اردنا ان نطبع الجمله Hello على الشاشه 10 مرات سوف نحتاج إلى كتابة الامر Writeln عشرة مرات . يمكنك بإستخدام التكرار ان تكتب الامر مره واحد و سوف يتم طباعة الجمله 10 مرات .

هناك 3 انواع من التكرار و هم for , while , repeat .

التكرار For :
هكذا يتم استخدام التكرار for




program Loops;

var
i: Integer;

begin
for i := 1 to 10 do
Writeln('Hello');
end.




اذا كنت تريد استخدام اكثر من امر بعد الكلمه for فيجب ان تضع الاوامر بوسط الامر begin و end





program Loops;

var
i: Integer;

begin
for i := 1 to 10 do
begin
Writeln('Hello');
Writeln('This is loop ',i);
end;
end.




التكرار While :
التكرار While يكرر الاوامر ما دام الشرط صحيح . طريقة الاستخدام





program Loops;

var
i: Integer;

begin
for i := 1 to 10 do
begin
Writeln('Hello');
Writeln('This is loop ',i);
end;
end.




التكرار Repeat until :
التكرار Repeat until يشبه التكرار while و لكنه يختبر الحاله في اسفل التكرار .




program Loops;

var
i: Integer;

begin
i := 0;
repeat
i := i + 1;
Writeln('Hello');
until i = 10;
end.





اذا كنت تريد استخدام اكثر من حاله في التكرار while او rapeat اضف الاقواس بين الحاله





program Loops;

var
i: Integer;
s: String;

begin
i := 0;
repeat
i := i + 1;
Write('Enter a number: ');
Readln(s);
until (i = 10) or (s = 0);
end.




Break و Continue :

الامر Break يخرج من من التكرار في اي وقت . في المثال التالي البرنامج لا يطبع اي شئ لانه يخرج من التكرار قبل تنفيذ العمليه.




program Loops;

var
i: Integer;

begin
i := 0;
repeat
i := i + 1;
Break;
Writeln(i);
until i = 10;
end.




الامر Continue يقفز إلى اعلى التكرار





program Loops;

var
i: Integer;

begin
i := 0;
repeat
i := i + 1;
Continue;
Writeln(i);
until i = 10;
end

يعطيك العاافيه ع الطرح

مشكور اخي ويعطيك الف عافيه
بانتضار المزيد
تح ـــيتــي

تسلم على الطرح الاكثر من الف رائع لاتحرمنا من جديدك

الله يعطيك الف عااااااااااااااااااااااااااااافيه
ولك جزيل الشكر والتقدير على هذا الجهد الكبير
تقبل تحياااااااااااااااااتي

بارك الله فيك
ماقصرت اخي الكريم
تسلم يدك يا طويل العمر
لاعدمناك

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية
يالغالي
ولك جزيل الشكر والتقدير على هذا الجهد الكبير
تقبل تحياااااااااااااااااتي

يعطييكِ العافيية اخي ..
طرح راائعَ ومتميز ..
وااصلِ ابداعكِ ونحن في انتظار جديدكِ ..
كنت هناإ ..!

ربي لا هانك يا ابو الشباب تسلم


وتسلم يمناااااااااااااااااااااااااااك


لك جل تقديري واحترررررررررامي

شكرا لك على الطرح الرائع

الله يعطيك الصحة والعافية

دورة تستحق التقييم