الحلقات التكرارية في لغة Pascal: For و While و Repeat مع تمارين محلولة — الإعلام الآلي — الأولى ثانوي — المنهاج الجزائري

الحلقات التكرارية في لغة Pascal: For, While, Repeat – الإعلام الآلي – الأولى ثانوي

الاهداف التعليمية:

• فهم مفهوم الحلقات التكرارية (Boucles) في البرمجة
• التعرف على أنواع الحلقات في لغة Pascal: For, While, Repeat
• التمييز بين الحلقة محددة التكرار والحلقة غير المحددة
• كتابة برامج بسيطة باستخدام الحلقات التكرارية

الشرح المبسط:

1- مفهوم الحلقات التكرارية (Loops)

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

2- الحلقة For (الحلقة المحددة)

تستخدم عندما نعرف عدد التكرارات مسبقا.

التركيب:

For Variable := ValeurInitiale To ValeurFinale Do
    Begin
        { الأوامر المراد تكرارها }
    End;

مثال: طباعة الأعداد من 1 إلى 10

Program Affiche_Nombres;
Var i : Integer;
Begin
    For i := 1 To 10 Do
        Writeln(i);
    Readln;
End.

3- الحلقة While (الحلقة الشرطية)

تستخدم عندما لا نعرف عدد التكرارات مسبقا. تتكرر طالما الشرط صحيح.

التركيب:

While (شرط) Do
    Begin
        { الأوامر }
    End;

مثال: طباعة الأعداد الزوجية الأقل من 20

Program Nombres_Pairs;
Var i : Integer;
Begin
    i := 2;
    While i < 20 Do
    Begin
        Writeln(i);
        i := i + 2;
    End;
    Readln;
End.

4- الحلقة Repeat (كرر حتى)

تشبه While ولكن الشرط يختبر بعد التنفيذ. تنفذ مرة واحدة على الأقل.

التركيب:

Repeat
    { الأوامر }
Until (شرط);

مثال: أدخل أعدادا حتى يتم إدخال الرقم 0

Program Saisie;
Var n : Integer;
Begin
    Repeat
        Write('أدخل رقما (0 للخروج): ');
        Readln(n);
    Until n = 0;
End.

تمارين محلولة

التمرين 1: اكتب برنامجاً باستخدام For لحساب مجموع الأعداد من 1 إلى 100

الحل:

Program Somme;
Var i, S : Integer;
Begin
    S := 0;
    For i := 1 To 100 Do
        S := S + i;
    Writeln('المجموع = ', S);
    Readln;
End.
{ النتيجة: المجموع = 5050 }

التمرين 2: اكتب برنامجاً باستخدام While يقرأ أعدادا ويحسب مجموعها ويتوقف عندما يدخل المستخدم الرقم -1

الحل:

Program Somme_Jusqua_MoinsUn;
Var n, S : Integer;
Begin
    S := 0;
    Writeln('أدخل أعدادا (-1 للخروج):');
    Readln(n);
    While n <> -1 Do
    Begin
        S := S + n;
        Readln(n);
    End;
    Writeln('المجموع = ', S);
    Readln;
End.

التمرين 3: اكتب برنامجاً باستخدام Repeat يطلب من المستخدم تخمين رقم سري (1234) حتى يصيب

الحل:

Program Devine_Secret;
Var code : Integer;
Begin
    Repeat
        Write('أدخل الرقم السري: ');
        Readln(code);
        If code <> 1234 Then
            Writeln('خطأ! حاول مرة أخرى.');
    Until code = 1234;
    Writeln('أحسنت! الرقم صحيح.');
    Readln;
End.

جدول مقارنة الحلقات

الحلقة	متى تستخدم	عدد التكرارات	الشرط
For	عند معرفة عدد التكرارات	محدد مسبقا	قيمة البداية والنهاية
While	عند عدم معرفة عدد التكرارات	غير محدد	قبل التنفيذ
Repeat	عند الحاجة لتنفيذ مرة واحدة على الأقل	غير محدد	بعد التنفيذ