منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

الحلقات التكرارية فى باسكال

اذهب الى الأسفل

الحلقات التكرارية فى باسكال Empty الحلقات التكرارية فى باسكال

مُساهمة من طرف ذوكا الثلاثاء ديسمبر 17, 2013 7:51 pm

بسم الله الرحمن الرحيم

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

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


اللى اللقاء
ذوكا
ذوكا
.....
.....

تاريخ التسجيل : 26/05/2013
المساهمات : 92
النقاط : 156
التقيم : 12
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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