المدير العام Admin
عدد الرسائل : 289 العمر : 49 تاريخ التسجيل : 02/12/2008
| موضوع: تعلم برمجة Pascal الدرس السادس - التكرار الإثنين يناير 19, 2009 7:13 am | |
| التكرار يستخدم متى اردت اعادة تطبيق الشيفره اكثر من مره . مثال : اذا اردنا ان نطبع الجمله 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. | |
|