Ecriture et lecture à partir d'un fichier

par **Napoléon** Mer 14 Nov - 0:41

Solution de l'exercice n°10 page 70 du livre scolaire: Algorithmique et Programmation (section Sciences de l'Informatique)

Objectifs
(a) Créer un fichier c:\exercice.txt
(b) Stocker des chaines de caractères jusqu'à ce que l'utilisateur saisisse la chaine 'FIN' (miniscule ignorées).
(c) Réafficher le contenu du fichier après avoir effacer l'écran.

Code:: program ex10_page70; uses wincrt; type F_String = file of String; VAR fichier: F_string; {fonction qui transforme un mot en majuscules} function MAJUSCULE(chaine: String):String; var maj: string; i: integer; begin maj := ''; for i:=1 to length(chaine) do maj := maj + upcase(chaine[i]); MAJUSCULE := maj; end; {remplissage du fichier par des chaines} procedure remplir_fichier(var f:F_string); var chMaj,ch: string; begin writeln('Remplissage du fichier c:\exercice.txt'); repeat write(' -> Donner une chaine: '); readln(ch); chMaj := MAJUSCULE(ch); if (chMaj <> 'FIN') then write(f, ch); until (chMaj = 'FIN'); end; {affichage du contenu du fichier} procedure afficher_fichier(var f:F_string); var ch: string; begin clrscr; {clear screen = effacer l'écran} writeln('Affichage du Contenu du fichier c:\exercice.txt'); reset(f); while (not eof(f)) do begin read(f, ch); writeln(' -> Chaine = ',ch); end; end; {Programme principal} BEGIN {pointer vers le fichier physique} assign(fichier,'C:\exercice.txt'); {Création du fichier exercice.txt} rewrite(fichier); {remplissage du fichier par des chaines} remplir_fichier(fichier); {affichage du contenu du fichier} afficher_fichier(fichier); close(fichier); END.