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

المصفوفات (الجداول) في لغة Pascal: تعريفها وأنواعها ومعالجتها

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

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

I – تعريف المصفوفة (Tableau)

المصفوفة هي مجموعة من العناصر من نفس النوع (integer, real, char) تخزن في متغير واحد وتتم معالجتها باستخدام فهرس (Index). تسمح المصفوفات بتنظيم البيانات وتسهيل معالجتها في البرامج.

II – المصفوفة أحادية البعد (Tableau à une dimension)

التصريح:
Var T : Array[1..N] Of Integer; حيث N هو عدد عناصر المصفوفة.

مثال: مصفوفة من 10 أعداد صحيحة:
Var Notes : Array[1..10] Of Real;

ملء المصفوفة:
For i := 1 To 10 Do
  Readln(Notes[i]);

عرض المصفوفة:
For i := 1 To 10 Do
  Writeln(Notes[i]);

III – المصفوفة ثنائية البعد (Tableau à deux dimensions)

التصريح:
Var M : Array[1..L, 1..C] Of Integer; حيث L عدد الأسطر وC عدد الأعمدة.

مثال: مصفوفة 3×4:
Var Matrice : Array[1..3, 1..4] Of Integer;

ملء المصفوفة:
For i := 1 To 3 Do
  For j := 1 To 4 Do
    Readln(Matrice[i,j]);

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

التمرين 01: اكتب برنامجاً في Pascal يقرأ 10 أعداد صحيحة ويخزنها في مصفوفة، ثم يحسب ويعرض مجموعها ومعدلها.
الحل:

Program Somme_Moyenne;
Var T : Array[1..10] Of Integer;
    i, S : Integer;
    Moy : Real;
Begin
  S := 0;
  For i := 1 To 10 Do
  Begin
    Write('T[', i, '] = ');
    Readln(T[i]);
    S := S + T[i];
  End;
  Moy := S / 10;
  Writeln('المجموع = ', S);
  Writeln('المعدل = ', Moy:0:2);
  Readln;
End.

التمرين 02: اكتب برنامجاً يقرأ مصفوفة 3×3 ويحسب مجموع عناصر القطر الرئيسي (i=j).
الحل:

Program Diagonale;
Var M : Array[1..3, 1..3] Of Integer;
    i, j, S : Integer;
Begin
  S := 0;
  For i := 1 To 3 Do
    For j := 1 To 3 Do
    Begin
      Write('M[', i, ',', j, '] = ');
      Readln(M[i, j]);
      If i = j Then S := S + M[i, j];
    End;
  Writeln('مجموع القطر = ', S);
  Readln;
End.

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

• التعبيرات والعمليات في لغة Pascal
• الحلقات التكرارية في لغة Pascal