التعارف و الصداقة و الحوار


 
الرئيسيةبحـثالتسجيلدخول

شاطر | 
 

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

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

انثى
عدد الرسائل : 289
العمر : 43
تاريخ التسجيل : 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.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://ahlamannas.yoo7.com
 
تعلم برمجة Pascal الدرس السادس - التكرار
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
التعارف و الصداقة و الحوار :: الكمبيوتر و الانترنت :: 

اخبار الكمبيوتر و الانترنات

-
انتقل الى: