المصفوفات (Tableaux) في لغة Pascal: المصفوفات أحادية البعد والعمليات الأساسية مع تمارين بكالوريا محلولة — الإعلام الآلي — الثانية ثانوي — المنهاج الجزائري

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

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

📝 الدرس: المصفوفات (Tableaux) في لغة Pascal

أولاً: مفهوم المصفوفة

المصفوفة (Tableau / Array) هي بنية بيانات تتكون من مجموعة من العناصر من نفس النوع (عدد صحيح، حرف، إلخ) تخزن في ذاكرة متتالية ويتم الوصول إليها بواسطة مؤشر (Index). تسمح المصفوفة بتخزين ومعالجة كمية كبيرة من البيانات باستخدام حلقة تكرارية.

ثانياً: المصفوفة أحادية البعد (Tableau à une dimension)

هي مصفوفة خطية تشبه قائمة من العناصر. تعريفها في Pascal:

Var
  T : Array[1..10] Of Integer;

المثال أعلاه يعرف مصفوفة T من 10 أعداد صحيحة، مرقمة من 1 إلى 10.

مثال: برنامج يقرأ 5 أعداد ويطبعها بالعكس.

Program Inverse;
Var
  T : Array[1..5] Of Integer;
  i : Integer;
Begin
  For i := 1 To 5 Do
  Begin
    Writeln('Entrez le nombre ', i, ':');
    Readln(T[i]);
  End;
  Writeln('Affichage inverse:');
  For i := 5 DownTo 1 Do
    Writeln(T[i]);
  Readln;
End.

ثالثاً: العمليات الأساسية على المصفوفات

• البحث عن عنصر: البحث التسلسلي (Sequential Search) للعثور على قيمة معينة.
• حساب المجموع والمعدل: باستخدام حلقة تكرارية تجمع العناصر.
• إيجاد أكبر وأصغر قيمة: بمقارنة العناصر واحداً تلو الآخر.
• الترتيب (Tri): ترتيب عناصر المصفوفة تصاعدياً أو تنازلياً.

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

تمرين 1 (بكالوريا): اكتب برنامجاً بلغة Pascal يقرأ 10 أعداد صحيحة في مصفوفة، ثم يحسب ويطبع مجموع الأعداد الزوجية فيها.
الحل:

Program Somme_Pairs;
Var
  T : Array[1..10] Of Integer;
  i, S : Integer;
Begin
  S := 0;
  For i := 1 To 10 Do
  Begin
    Writeln('Entrez le nombre ', i);
    Readln(T[i]);
    If (T[i] Mod 2 = 0) Then
      S := S + T[i];
  End;
  Writeln('La somme des pairs = ', S);
  Readln;
End.

تمرين 2: اكتب برنامجاً يقرأ 8 أعداد في مصفوفة ثم يعرض أكبر عدد وموقعه.
الحل: نفرض أن T[1] هو الأكبر، ثم نقارن مع باقي العناصر، كلما وجدنا عنصراً أكبر نخزن قيمته وموقعه.

---

📚 دروس مشابهة

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