الإعلام الآلي — الملفات النصية (Fichiers Texte / Text Files) في لغة Pascal: التعريف والقراءة والكتابة والمعالجة مع تمارين بكالوريا محلولة — الثانية ثانوي — المنهاج الجزائري

الإعلام الآلي — الملفات النصية (Fichiers Texte / Text Files) في لغة Pascal: التعريف والقراءة والكتابة والمعالجة مع تمارين بكالوريا محلولة — الإعلام الآلي — الثانية ثانوي — المنهاج الجزائري

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

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

مقدمة:

الملفات النصية (Fichiers Texte) هي ملفات تحتوي على نصوص يمكن قراءتها وتحريرها. في لغة Pascal، نتعامل مع الملفات النصية باستخدام متغير من النوع Text. تسمح لنا الملفات النصية بتخزين البيانات بشكل دائم واسترجاعها لاحقاً.

أولاً: تعريف المتغير من النص

لإنشاء ملف نصي في Pascal، نعرف متغيراً من النوع Text:
Var
  F: Text;
  NomFichier: String;
  Ligne: String;
Begin

ثانياً: الإجراءات الأساسية للتعامل مع الملفات النصية

1. Assign(F, ‘nom_fichier.txt’): ربط الملف بالمتغير F
يستخدم لربط الملف الفعلي في القرص الصلب مع المتغير في البرنامج.

2. Reset(F): فتح الملف للقراءة فقط
يستخدم عندما نريد قراءة محتوى الملف. يجب أن يكون الملف موجوداً مسبقاً.

3. Rewrite(F): إنشاء ملف جديد للكتابة (يحذف المحتوى القديم)
إذا كان الملف موجوداً، يتم مسح محتواه. إذا لم يكن موجوداً، يتم إنشاؤه.

4. Append(F): فتح الملف للإضافة في نهايته
يضيف محتوى جديداً في نهاية الملف دون حذف المحتوى القديم.

5. Close(F): إغلاق الملف
يجب إغلاق الملف بعد الانتهاء من المعالجة لحفظ التغييرات.

ثالثاً: قراءة من ملف نصي

لقراءة ملف نصي سطراً سطراً:
Assign(F, 'data.txt');
Reset(F);
While Not Eof(F) Do
  Begin
    ReadLn(F, Ligne);
    WriteLn(Ligne);
  End;
Close(F);

الدالة Eof(F) (End Of File) تعود بـ True عندما نصل إلى نهاية الملف.

رابعاً: كتابة في ملف نصي

للكتابة في ملف نصي:
Assign(F, 'output.txt');
Rewrite(F);  { أو Append(F) للإضافة }
WriteLn(F, 'مرحبا بالعالم');
WriteLn(F, 'هذا سطر ثان');
Close(F);

تمارين بكالوريا محلولة:

التمرين 1 (بكالوريا):

أكتب برنامجاً بلغة Pascal يقرأ الأعداد الصحيحة من ملف نصي اسمه “nombres.txt” ويحسب مجموعها ثم يكتب النتيجة في ملف جديد اسمه “somme.txt”.

الحل:
Program CalculSomme;
Var
  F1, F2: Text;
  N, S: Integer;
Begin
  Assign(F1, 'nombres.txt');
  Reset(F1);
  S := 0;
  While Not Eof(F1) Do
  Begin
    ReadLn(F1, N);
    S := S + N;
  End;
  Close(F1);
  Assign(F2, 'somme.txt');
  Rewrite(F2);
  WriteLn(F2, 'المجموع = ', S);
  Close(F2);
End.

التمرين 2 (بكالوريا):

أكتب برنامجاً ينسخ محتوى ملف نصي “source.txt” إلى ملف آخر “copie.txt” مع إضافة رقم السطر في بداية كل سطر.

الحل:
Program CopieFichier;
Var
  Src, Dest: Text;
  Ligne: String;
  I: Integer;
Begin
  Assign(Src, 'source.txt');
  Reset(Src);
  Assign(Dest, 'copie.txt');
  Rewrite(Dest);
  I := 1;
  While Not Eof(Src) Do
  Begin
    ReadLn(Src, Ligne);
    WriteLn(Dest, I, ': ', Ligne);
    I := I + 1;
  End;
  Close(Src);
  Close(Dest);
End.

خلاصة:

الملفات النصية في Pascal تسمح بتخزين البيانات واسترجاعها بسهولة. الإجراءات الأساسية هي Assign وReset وRewrite وAppend وClose. تذكر دائماً إغلاق الملف بعد الانتهاء باستخدام Close.

راجع أيضاً: السلاسل النصية (Strings) في Pascal | الحلقات المتكررة (Boucles) في Pascal