الملفات (Fichiers) في لغة Pascal: التعامل مع الملفات النصية والملفات ذات البنية — الثالثة ثانوي (بكالوريا) — شعبة تقني رياضي — الإعلام الآلي

🎯 أهداف التعلم

• التعرف على مفهوم الملفات في البرمجة وأهميتها
• التفريق بين الملفات النصية والملفات ذات البنية (Typed Files)
• استخدام إجراءات التعامل مع الملفات: Assign, Rewrite, Reset, Close
• كتابة برامج Pascal تقوم بقراءة وكتابة البيانات من وإلى الملفات

📍 تمهيد

عندما نكتب برنامجاً بلغة Pascal، فإن المتغيرات التي نستخدمها تفقد قيمها بمجرد انتهاء تنفيذ البرنامج. لحفظ البيانات بشكل دائم — كقوائم الطلاب أو المنتجات أو النتائج — نستخدم الملفات (Files). الملفات تسمح بتخزين البيانات على القرص الصلب واسترجاعها لاحقاً. في بكالوريا تقني رياضي، تعتبر الملفات من المواضيع الهامة التي قد ترد في التمارين التطبيقية.

📖 أنواع الملفات في Pascal

1. الملفات النصية (Text Files)

تمثل ملفات نصية عادية يمكن قراءتها وكتابتها سطراً سطراً. تُعرف باستخدام الكلمة المفتاحية Text. تستخدم الإجراءات ReadLn و WriteLn للتعامل معها.

Program ExempleFichierTexte;
Var
  f: Text;
  ligne: String;
Begin
  Assign(f, 'exemple.txt');
  Rewrite(f);      // فتح للكتابة
  WriteLn(f, 'السطر الأول');
  WriteLn(f, 'السطر الثاني');
  Close(f);
  
  Reset(f);        // فتح للقراءة
  While Not Eof(f) Do
  Begin
    ReadLn(f, ligne);
    WriteLn(ligne);
  End;
  Close(f);
End.

2. الملفات ذات البنية (Typed Files)

تُستخدم لتخزين سجلات (Records) بنفس النوع. تُعرف بـ File Of Type. تستخدم Read و Write للقراءة والكتابة.

Program GestionEtudiants;
Type
  TEtudiant = Record
    Nom: String[30];
    Note: Real;
  End;
Var
  f: File Of TEtudiant;
  etu: TEtudiant;
Begin
  Assign(f, 'etudiants.dat');
  Rewrite(f);
  etu.Nom := 'أحمد';
  etu.Note := 16.5;
  Write(f, etu);
  Close(f);
End.

🔑 الإجراءات الأساسية للتعامل مع الملفات

Program SommeFichier;
Var
  f: Text;
  i, n, somme: Integer;
Begin
  Assign(f, 'nombres.txt');
  Rewrite(f);
  For i := 1 To 10 Do
  Begin
    Write('Enter le nombre ', i, ': ');
    ReadLn(n);
    WriteLn(f, n);
  End;
  Close(f);
  
  somme := 0;
  Reset(f);
  While Not Eof(f) Do
  Begin
    ReadLn(f, n);
    somme := somme + n;
  End;
  Close(f);
  WriteLn('La somme est: ', somme);
  ReadLn;
End.

📍 دروس مشابهة

• هياكل البيانات: التكديس والطوابير (Stacks و Queues) — الثالثة ثانوي — إعلام آلي
• تمارين بكالوريا محلولة في الخوارزميات والمخططات الانسيابية — الثالثة ثانوي — إعلام آلي