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

end;

readln;

end;

readln;

end;

{=============\\\ Procedure pour afficher les
resultats de recherche par acteur(RActeur) ///==================}

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

var

Acteur: string[10];

i:byte;

begin

clrscr;

write('Tappez nom d''acteur : ');

readln(Acteur);

reset(F);

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

begin

clrscr;

read(F,Films);

if acteur = Films.acteur then

with Films do

begin

writeln('Le Titre du film est : ',titre);

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

writeln('Disponibilité : ' ,disponible);

end;

readln;

end;

readln;

end;

{-------------\\\
Procedure pour chercher un film ///----------------}

procedure ChercherFilm (var F:FFilm);

var

choix : char;

Films:Film;

begin

clrscr;

repeat

writeln('Recherche par titre :
T');

writeln('Recherche par acteur : A');

writeln;

readln(choix);

choix := upcase(choix);

until
(choix = 'T') or (choix = 'A');

case choix of

'T': RTitre(F,Films);

'A': RActeur(F,Films);

end;

end;

{------------\\\ Procedure pour modifier un
film ///---------------}

procedure
ModifierFilm (var F:FFilm);

var

Films:Film;

begin

clrscr;

ChercherFilm(F);

with Films do

begin

write('L''ancien titre est : ',titre);

readln(titre);

write('l''ancien nom d''acteur est : ',acteur);

readln(acteur);

write('L''ancien année de sortir est : ',annee);

readln(annee);

repeat

write('Ce film est : ',disponible);

readln(disponible);

until (disponible = 'OUI') or (disponible = 'NON') or (disponible =
'oui') or (disponible = 'non');

end;

end;

{****************************************procedure
menu edition**************************************}

procedure
menuEdition;

var
choix : char;

begin

clrscr;

repeat

writeln('Pour Ajouter un film tappez
-- A --');

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

» specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N5)
» specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N1)
» specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N2
» specialement sur maamoura love correction d'exercice de livre N 14 page 71 sur 5 partie(partie N3
» maamoura-love