specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N3

end;

{$I+}

if IOResult <> 0 then

begin

writeln('*** Attention au chemin
et au nom du fichier ***');

end

else

writeln('*** La fichier ',nomF,'
est bien fermer *** ');

readln;

until (IOResult = 0);

readln;

end;

{*********************************** procedure menu
fichier **********************************}

procedure menuFichier ;

var
choix : char;

begin

clrscr;

repeat

writeln('Pour Creer un nouveau fichier tappez -- C --');

writeln('Pour Ouvrir un fichier tappez -- O --');

writeln('Pour Supprimer un fichier tappez -- S --');

writeln('Pour Fermer un fichier tappez -- F --');

writeln;

readln(choix);

choix := upcase(choix);

until (choix in ['C','O','S','F']);

case choix of

'C' : nouveauFichier(F);

'O' : ouvrirFichier(F);

'S' : supprimerFichier(F);

'F' : fermerFichier(F);

end;

end;

{------------
Procedure pour Ajouter un film -------------------}

procedure
AjouterFilm(var F:FFilm );

var
chemin:string;

Films:Film;

rep:char;

begin

rep := 'O';

while rep = 'O' do

begin

clrscr;

With Films do

begin

write('Le titre est : ');

readln(titre);

write('Son acteur est : ');

readln(acteur);

write('l''année de sortir est : ');

readln(annee);

disponible := 'Oui';

end;

repeat

clrscr;

writeln('Continuer? (O/N)');

readln(rep);

rep := upcase(rep);

until (rep = 'N') or (rep = 'O');

end;

write(F,Films);

end;

{=============\\\ Procedure pour afficher les
resultats de recherche par titre(RTitre) ///==================}

procedure
RTitre(var F:FFilm; Films:Film);

var

titre: string[30];

i:byte;

begin

clrscr;

write('Tappez la titre du film : ');

readln(titre);

reset(F);

for i:= 0 to (filesize(F)-1) do

begin

clrscr;

read(F,Films);

if titre = Films.titre then

with Films do

begin

writeln('Son acteur est : ',acteur);

writeln('L''année de sortire est : ',annee);

writeln('Disponibilité : ' ,disponible);

i sur ili hata had handou corection wili handou minha yebhathali ali
kedmti ana mich koli shiha fama des faute ........ama netsawer kan
tjini fi devoir najam nakou fiha 15/20
Et encore je suis sur ili cette exercice matelkach solution matahou fi hata forum juste sur maamoura love
j'attend vous commentaire