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

الملفات في لغة Pascal — Les Fichiers en Pascal

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

• فهم مفهوم الملف في البرمجة
• التعرف على أنواع الملفات في Pascal
• معرفة كيفية فتح وقراءة وكتابة الملفات النصية
• التعامل مع الملفات المعرفة (Typed files)

1. مفهوم الملف (Fichier):

الملف هو مجموعة من المعطيات المخزنة على وسائط التخزين (القرص الصلب، USB، …) بشكل دائم. تسمح الملفات بحفظ البيانات واسترجاعها لاحقاً.

2. أنواع الملفات في Pascal:

النوع	الوصف	الإعلان
ملف نصي (Text)	يحتوي على نص يمكن قراءته	Var f: Text;
ملف معرّف (File of)	يحتوي على بيانات من نوع محدد	Var f: File of Integer;

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

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

الإجراء	الوظيفة
Assign(f, “اسم_الملف”)	ربط متغير الملف باسم ملف فعلي
Reset(f)	فتح ملف للقراءة
Rewrite(f)	فتح ملف للكتابة (إنشاء ملف جديد)
Append(f)	فتح ملف للإضافة (إلحاق)
ReadLn(f, متغير)	قراءة سطر من الملف
WriteLn(f, نص)	كتابة سطر في الملف
Close(f)	إغلاق الملف
Eof(f)	اختبار نهاية الملف (True إذا وصل للنهاية)

4. مثال: كتابة في ملف نصي:

Program EcrireFichier;
Var f: Text;
    i: Integer;
Begin
    Assign(f, "nombres.txt");
    Rewrite(f);
    For i := 1 To 10 Do
        WriteLn(f, i);
    Close(f);
    WriteLn("تم إنشاء الملف بنجاح");
    ReadLn;
End.

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

Program LireFichier;
Var f: Text;
    n, somme: Integer;
Begin
    Assign(f, "nombres.txt");
    Reset(f);
    somme := 0;
    While Not Eof(f) Do
    Begin
        ReadLn(f, n);
        somme := somme + n;
    End;
    Close(f);
    WriteLn("مجموع الأعداد = ", somme);
    ReadLn;
End.

6. الملفات المعرفة (Typed Files):

تستخدم لتخزين بيانات من نوع معين (أعداد، سجلات، …).

Type
    TPersonne = Record
        Nom: String[30];
        Age: Integer;
    End;
Var
    f: File Of TPersonne;
    p: TPersonne;

7. تمارين محلولة:

التمرين 1: اكتب برنامجاً بلغة Pascal ينشئ ملفاً نصياً باسم “eleves.txt” ويسجل فيه أسماء 5 تلاميذ يدخلهم المستخدم.

الحل:

Program EnregistrerEleves;
Var f: Text;
    nom: String[50];
    i: Integer;
Begin
    Assign(f, "eleves.txt");
    Rewrite(f);
    For i := 1 To 5 Do
    Begin
        Write("أدخل اسم التلميذ ", i, ": ");
        ReadLn(nom);
        WriteLn(f, nom);
    End;
    Close(f);
    WriteLn("تم حفظ الأسماء بنجاح");
    ReadLn;
End.

التمرين 2: اكتب برنامجاً يقرأ الملف “eleves.txt” ويعرض محتوياته على الشاشة.

الحل:

Program AfficherEleves;
Var f: Text;
    nom: String[50];
Begin
    Assign(f, "eleves.txt");
    Reset(f);
    WriteLn("قائمة التلاميذ:");
    While Not Eof(f) Do
    Begin
        ReadLn(f, nom);
        WriteLn(nom);
    End;
    Close(f);
    ReadLn;
End.

8. خلاصة:

• الملف: مجموعة معطيات مخزنة بشكل دائم على وسيط تخزين
• نوعان رئيسيان: ملف نصي (Text) وملف معرّف (File of Type)
• الخطوات الأساسية: Assign → Reset/Rewrite → قراءة/كتابة → Close
• استخدم Eof(f) للتحقق من نهاية الملف أثناء القراءة

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

• خوارزميات الترتيب في لغة Pascal — Bubble Sort و Insertion Sort
• قواعد البيانات — مفهومها وأنواعها ولغة SQL
• التعبيرات والعمليات في Pascal — العوامل الحسابية والمنطقية