البرمجة بلغة Pascal — الدوال والإجراءات — السنة الثانية ثانوي (شعبة تقني رياضي) — الإعلام الآلي — المنهاج الجزائري

البرمجة بلغة Pascal — الدوال والإجراءات — السنة الثانية ثانوي (شعبة تقني رياضي) — الإعلام الآلي — المنهاج الجزائري

الدوال (Fonctions) والإجراءات (Procédures) هي وحدات برمجية مستقلة تساعد في تنظيم البرنامج وتقسيمه إلى أجزاء صغيرة قابلة لإعادة الاستخدام. هذا الدرس ضمن مقرر الإعلام الآلي للسنة الثانية ثانوي شعبة تقني رياضي.

أولاً: مفهوم البرنامج الفرعي (Sous-programme)

البرنامج الفرعي هو مجموعة من التعليمات تؤدي مهمة محددة، ويمكن استدعاؤها من أي مكان في البرنامج الرئيسي. فوائد استخدام البرامج الفرعية:

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

ثانياً: الإجراءات (Procédures)

الإجراء هو برنامج فرعي لا يعيد قيمة. يستخدم لتنفيذ مجموعة من التعليمات.

الصيغة العامة:

Procedure NomProcedure (Paramètres);
Var
  { المتغيرات المحلية }
Begin
  { التعليمات }
End;

مثال — إجراء لطباعة عناصر مصفوفة:

Procedure Afficher(T: Tab; n: Integer);
Var i: Integer;
Begin
  For i := 1 to n Do
    Write(T[i], ' ');
  WriteLn;
End;

ثالثاً: الدوال (Fonctions)

الدالة هي برنامج فرعي يعيد قيمة واحدة للبرنامج المستدعي.

الصيغة العامة:

Function NomFonction (Paramètres): TypeRésultat;
Var
  { المتغيرات المحلية }
Begin
  { التعليمات }
  NomFonction := { قيمة الإرجاع };
End;

مثال — دالة لحساب العاملي n! (Factorielle):

Function Factorielle(n: Integer): Integer;
Var i, f: Integer;
Begin
  f := 1;
  For i := 2 to n Do
    f := f * i;
  Factorielle := f;
End;

رابعاً: نقل المعاملات (Paramètres)

النقل بالقيمة (Passage par Valeur): يتم نسخ قيمة المتغير إلى البرنامج الفرعي. التغييرات داخل البرنامج الفرعي لا تؤثر على المتغير الأصلي.

النقل بالمرجع (Passage par Variable / Référence): يُستخدم VAR قبل اسم المعامل. التغييرات داخل البرنامج الفرعي تؤثر على المتغير الأصلي.

خامساً: مثال بكالوريا

Function Puissance(x: Real; n: Integer): Real;
Var i: Integer;
    p: Real;
Begin
  p := 1;
  For i := 1 to n Do
    p := p * x;
  Puissance := p;
End;

Program TestPuissance;
Var a: Real;
    b: Integer;
Begin
  Write('أعط العدد: '); ReadLn(a);
  Write('أعط الأس: '); ReadLn(b);
  WriteLn(a, '^', b, ' = ', Puissance(a, b):0:2);
  ReadLn;
End.

خلاصة

الدوال والإجراءات أساسية في البرمجة المنظمة (Programmation structurée). إتقانها يسمح بكتابة برامج نظيفة وقابلة للتطوير وإعادة الاستخدام. وهي من المواضيع المهمة في بكالوريا شعبة تقني رياضي.

دروس مشابهة

• أنظمة الترقيم — الإعلام الآلي — السنة الثالثة متوسط — المنهاج الجزائري
• مقدمة في لغة سكراتش — البرمجة البصرية للمبتدئين — الإعلام الآلي — السنة الثانية
• محركات البحث — كيفية البحث في الإنترنت — الإعلام الآلي — السنة الأولى متوسط — ال