الدرس العاشر - التكرار

التكرار يستخدم متى اردت اعادة تطبيق الشيفره اكثر من مره .

مثال :

اذا اردنا ان نطبع الجمله 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.