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

📌 الأهداف التعليمية

• التعرف على مفهوم الحلقات التكرارية في البرمجة.
• التفريق بين أنواع الحلقات في لغة Pascal.
• كتابة برامج بسيطة تستخدم الحلقات التكرارية.

📝 الدرس: الحلقات المتكررة (Boucles) في Pascal

أولاً: مفهوم الحلقة التكرارية

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

ثانياً: أنواع الحلقات في Pascal

1. حلقة For (Boucle Pour): تستخدم عندما نعرف عدد التكرارات مسبقاً.

For variable := valeur_initiale To valeur_finale Do
  Begin
    instruction1;
    instruction2;
  End;

مثال: برنامج يطبع الأعداد من 1 إلى 10.

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

2. حلقة While (Boucle Tant Que): تنفذ طالما الشرط محققاً. قد لا تنفذ أبداً إذا كان الشرط خاطئاً من البداية.

While (condition) Do
  Begin
    instruction;
  End;

مثال: برنامج يقرأ أعداداً حتى يدخل المستخدم الرقم 0.

Program Lecture_Nombres;
Var n : Integer;
Begin
  Writeln('Entrez des nombres (0 pour sortir):');
  Readln(n);
  While n <> 0 Do
  Begin
    Writeln('Vous avez entre: ', n);
    Readln(n);
  End;
  Readln;
End.

3. حلقة Repeat (Boucle Repeter): تنفذ التكرارات ثم تتحقق من الشرط، لذلك تنفذ مرة واحدة على الأقل.

Repeat
  instruction;
Until (condition);

مثال: برنامج يطلب إدخال رقم موجب.

Program Nombre_Positif;
Var n : Integer;
Begin
  Repeat
    Writeln('Entrez un nombre positif:');
    Readln(n);
  Until n > 0;
  Writeln('Bravo! Le nombre est: ', n);
  Readln;
End.

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

تمرين 1: اكتب برنامجاً بلغة Pascal يحسب مجموع الأعداد من 1 إلى N حيث N يدخلها المستخدم.

Program Somme;
Var N, i, S : Integer;
Begin
  Writeln('Entrez le nombre N:');
  Readln(N);
  S := 0;
  For i := 1 To N Do
    S := S + i;
  Writeln('La somme = ', S);
  Readln;
End.

تمرين 2: اكتب برنامجاً يعرض جدول ضرب عدد معين يدخله المستخدم (من 1 إلى 10).

Program Table_Multiplication;
Var n, i : Integer;
Begin
  Writeln('Entrez un nombre:');
  Readln(n);
  For i := 1 To 10 Do
    Writeln(n, ' x ', i, ' = ', n * i);
  Readln;
End.

---

📚 دروس مشابهة

• المصفوفات (جداول البيانات) في الخوارزميات — الإعلام الآلي — الأولى ثانوي
• الخوارزميات المتسلسلة والشرطية: كتابة برامج بلغة Pascal — الإعلام الآلي — الأولى ثانوي