الهياكل الشرطية في لغة Pascal: If و Case مع تمارين محلولة — الإعلام الآلي — الأولى ثانوي — المنهاج الجزائري

الهياكل الشرطية في لغة Pascal — Structures conditionnelles

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

• فهم مفهوم الهيكل الشرطي في البرمجة
• التعرف على تعليمة If (إذا) واستخداماتها
• التعرف على تعليمة Case (حسب) واستخداماتها
• كتابة برامج بسيطة باستخدام الهياكل الشرطية

1. مفهوم الهيكل الشرطي:

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

2. تعليمة If (إذا):

الصيغة البسيطة:

If شرط Then
    تعليمة;

الصيغة مع else (وإلا):

If شرط Then
    تعليمة1
Else
    تعليمة2;

الصيغة المركبة (كتلة تعليمات):

If شرط Then
Begin
    تعليمة1;
    تعليمة2;
End
Else
Begin
    تعليمة3;
    تعليمة4;
End;

3. عوامل المقارنة في Pascal:

العامل	المعنى	مثال
=	يساوي	If a = 5 Then
<>	لا يساوي	If a <> 5 Then
<	أصغر من	If a < 5 Then
>	أكبر من	If a > 5 Then
<=	أصغر أو يساوي	If a <= 5 Then
>=	أكبر أو يساوي	If a >= 5 Then

4. العمليات المنطقية:

• And (و): يتحقق إذا تحقق الشرطان معاً
• Or (أو): يتحقق إذا تحقق أحد الشرطين
• Not (ليس): ينفي الشرط

مثال:

If (age >= 18) And (age <= 60) Then
    WriteLn("أنت في سن العمل");

5. تعليمة Case (حسب):

تستخدم عندما يكون هناك عدة احتمالات لمتغير واحد.

Case متغير Of
    قيمة1: تعليمة1;
    قيمة2: تعليمة2;
    قيمة3, قيمة4: تعليمة3;
    ...
Else
    تعليمة_افتراضية;
End;

6. تمارين محلولة:

التمرين 1: اكتب برنامجاً بلغة Pascal يقرأ عدداً ويطبع "زوجي" إذا كان العدد زوجياً و"فردي" إذا كان فردياً.

الحل:

Program PairImpair;
Var n: Integer;
Begin
    Write("أدخل عدداً: ");
    ReadLn(n);
    If n Mod 2 = 0 Then
        WriteLn("زوجي")
    Else
        WriteLn("فردي");
    ReadLn;
End.

التمرين 2: اكتب برنامجاً يقرأ رقم شهر (1-12) ويطبع اسم الشهر.

الحل باستخدام Case:

Program Mois;
Var m: Integer;
Begin
    Write("أدخل رقم الشهر: ");
    ReadLn(m);
    Case m Of
        1: WriteLn("جانفي");
        2: WriteLn("فيفري");
        3: WriteLn("مارس");
        4: WriteLn("أفريل");
        5: WriteLn("ماي");
        6: WriteLn("جوان");
        7: WriteLn("جويلية");
        8: WriteLn("أوت");
        9: WriteLn("سبتمبر");
        10: WriteLn("أكتوبر");
        11: WriteLn("نوفمبر");
        12: WriteLn("ديسمبر")
    Else
        WriteLn("رقم شهر غير صحيح");
    End;
    ReadLn;
End.

7. خلاصة:

• If ... Then ... Else: لاتخاذ قرار بناءً على شرط
• Case ... Of: للاختيار من بين عدة قيم
• عوامل المقارنة: =, <>, <, >, <=, >=
• العمليات المنطقية: And, Or, Not

📚 دروس مشابهة:

• التعبيرات والعمليات في لغة Pascal — العوامل الحسابية والمنطقية
• خوارزميات الترتيب في لغة Pascal — Bubble Sort و Insertion Sort
• قواعد البيانات — المبادئ الأساسية والجداول والعلاقات