Fichiers typés

Avant de commencer

Un tableau a une taille fixée à la compilation. Pour stocker un nombre inconnu d'éléments (ex. la base de données des notes), il faut un fichier. Comment lire et écrire un fichier en Pascal ?

1. Qu'est-ce qu'un fichier typé ?

Chaque fichier a deux noms :

• Logique : la variable Pascal (ex. F).
• Physique : le chemin sur le disque (ex. "C:\notes.dat").

2. Déclaration

T.D.N.T
─────────────────────────────────
Type
  FICH_NOTES = Fichier de réel
─────────────────────────────────

T.D.O
─────────────────────────────────
F : variable FICH_NOTES
x : variable réel
─────────────────────────────────

T.D.N.T
─────────────────────────────────
Type
  FICH_NOTES = Fichier de réel
─────────────────────────────────

T.D.O
─────────────────────────────────
F : variable FICH_NOTES
x : variable réel
─────────────────────────────────

PROGRAM ExempleFichier;
TYPE
  Fich_Notes = FILE OF real;
VAR
  F : Fich_Notes;
  x : real;
BEGIN
  { ... }
END.

3. Opérations de base

États possibles

4. Exemple : créer un fichier de notes

PROGRAM EcrireNotes;
TYPE
  Fich_Notes = FILE OF real;
VAR
  F : Fich_Notes;
  x : real;
  rep : char;
BEGIN
  Assign(F, 'C:\notes.dat');
  Rewrite(F);            { crée ou écrase }
  REPEAT
    Write('Note : ');
    Readln(x);
    Write(F, x);
    Write('Continuer (O/N) ? ');
    Readln(rep);
  UNTIL UpCase(rep) = 'N';
  Close(F);              { TOUJOURS fermer }
END.

5. Exemple : lire toutes les notes

PROGRAM LireNotes;
TYPE
  Fich_Notes = FILE OF real;
VAR
  F : Fich_Notes;
  x : real;
BEGIN
  Assign(F, 'C:\notes.dat');
  Reset(F);              { ouvre en lecture }
  WHILE NOT Eof(F) DO
  BEGIN
    Read(F, x);
    Writeln(x:5:2);
  END;
  Close(F);
END.

6. Fonctions/procédures avancées

7. Exercices

Reset(F);
n := 0;
WHILE NOT Eof(F) DO
BEGIN
  Read(F, x);
  n := n + 1;
END;
Close(F);
Writeln('Nombre : ', n);

PROGRAM Filtrer;
TYPE Fich = FILE OF real;
VAR
  F1, F2 : Fich;
  x : real;
BEGIN
  Assign(F1, 'notes.dat');  Reset(F1);
  Assign(F2, 'bonnes.dat'); Rewrite(F2);
  WHILE NOT Eof(F1) DO
  BEGIN
    Read(F1, x);
    IF x >= 12 THEN
      Write(F2, x);
  END;
  Close(F1); Close(F2);
END.

Reset(F);
WHILE NOT Eof(F) DO
BEGIN
  pos := FilePos(F);
  Read(F, x);           { Read avance le pointeur }
  Seek(F, pos);         { Revenir à la position }
  x := x + 1;
  Write(F, x);          { Écrase l'ancienne valeur }
END;
Close(F);

8. Erreurs fréquentes au bac

• Oublier Assign avant Rewrite/Reset → erreur d'exécution.
• Faire Reset sur un fichier inexistant → erreur (Rewrite aurait marché).
• Oublier Close à la fin (peut laisser le fichier corrompu).
• Lire après Eof → erreur.

9. Quiz