Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Ch7 fichiers pointeurs et listes

Problèmes corrigés - Pascal CHAPITRE FICHIERS POINTEURS ET LISTES Fichiers à acces direct en turbo-pascal En turbo-pascal sur PC le type ?le of permet les ?chiers de longueur variable il faut pour utiliser des ?chiers 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 ?chier à accès direct chaque élément se trouve à une adresse précise aller chercher une ?che en créer une nouvelle et lire la totalité Les di ?érentes instructions de manipulation de ?chiers sont commentées au fur et à mesure dans le programme program adresses Fichier à accès direct type individu record nom prenom string adresse string telephone string end ?chier ?le of individu On dé ?nit deux types d'objets les individus et les ?chiers var G ?chier X integer procedure creation var F ?chier ne servira qu'une seule fois begin rewrite F close F end procedure ecriture var F ?chier Ecrit une ou plusieurs nouvelles ?ches dans F var A individu C char begin reset F C 'O' seek F ?lesize F permet de se positionner sur la ?n du ?chier en cherchant seek dans F la dernière position ?lesize F donne le nombre de ?ches ?lesize 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 ?chier 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 ?n de la procédure d'écriture procedure edition A individu réalise une édition à l'écran de l'individu A var I integer begin writeln A nom ' ' A prenom ' ' A adresse ' TEL ' A telephone for I to do write '-' Place une ligne séparatrice de tirets end procedure lecture var F ?chier Lecture complète du ?chier F var A individu begin reset F repeat read F A lecture depuis F sur la disquette et non depuis le clavier read et write avancent toujours d'un cran la position courante dans le ?chier après leur exécution cela est très commode pour la procédure présente write ?lepos F ' ' edition A until eof répéter jusqu'à la ?n du ?chier end of ?le writeln 'Il y a ' ?lesize F ' ?ches ' close F end CChapitre - Fichiers pointeurs et listes begin assign G 'ADRESSES DAT' Permet d'assigner à la variable globale G le nom précis du ?chier on peut prévoir de demander le nom commande propre au turbo-pascal sur PC writeln ' Fichier d adresses ' write ' Création Lecture complète Nouvelle ?che ' readln X case X of creation G lecture G ecriture G end recherche et destruc restent à écrire end