106

512 Problèmes corrigés - Pascal

CHAPITRE 7 FICHIERS, POINTEURS ET LISTES

Fichiers à acces direct en turbo-pascal En turbo-pascal sur PC le type "file of ... " permet les fichiers de longueur variable, il faut pour utiliser des fichiers sur disquette connaître les ordres de création "rewrite", d'ouverture "reset" de fermeture "close" etc... On se limite volontairement dans le programme de carnet d'adresses, aux opérations élémentaires sur un fichier à accès direct (chaque élément se trouve à une adresse précise), aller chercher une fiche, en créer une nouvelle, et lire la totalité. Les différentes instructions de manipulation de fichiers sont commentées au fur et à mesure dans le programme. program adresses ; { Fichier à accès direct } type individu = record nom, prenom : string [20]; adresse : string [80]; telephone: string [12] end; fichier = file of individu; {On définit deux types d'objets, les individus et les fichiers} var G : fichier; X : integer ; procedure creation (var F : fichier); { ne servira qu'une seule fois } begin rewrite (F); close (F) end; procedure ecriture (var F : fichier); { Ecrit une ou plusieurs nouvelles fiches dans F } var A : individu ; C : char; begin reset (F); C := 'O'; seek (F, filesize (F)); { permet de se positionner sur la fin du fichier en cherchant (seek) dans F la dernière position (filesize(F) donne le nombre de fiches)."filesize" est inconnu sur Macintosh} with A do while C = 'O' do begin write ('NOM: '); readln (nom); write ('PRENOM: '); readln (prenom); write ('ADRESSE: '); readln (adresse); write ('TEL: '); readln (telephone); write (F, A);{ Ecriture dans le fichier F et non sur l'écran} write ('AUTRE ? (O/N) ') ; readln (C) end; { With A do... est une instruction dont il n'a pas été question jusqu'à présent, elle permet de ne pas répéter à chaque fois A.nom, A.prenom etc...} close (F) end; { fin de la procédure d'écriture } procedure edition (A : individu); {réalise une édition à l'écran de l'individu A } var