Exercices Pascal trés dure

[Résolu/Fermé]
Signaler
Messages postés
9
Date d'inscription
lundi 31 mars 2008
Statut
Membre
Dernière intervention
8 mai 2008
-
 gelius -
Bonjour,les ga
voila un exercices Pascal trés dure
__________________________________________
*menu fichier:
-nouveau fichier
-ouvrir un fichier
-supprimer un fichier
-fermer un fichier
*menu Edition:
-ajouter un film
-modifier un film
-chercher un film
-supprimer un film
*menu Quitter:
-Quitter
_____________________
écrire un algorithme qui réalise les menus suivantes:
NB: film est de type enregistrement (record)
A voir également:

5 réponses

Messages postés
16400
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2021
2 878
type Fiche=record
           numero:integer;
           nom:string;
           genre:string;
           end;

     Fichier=file of Fiche;

procedure NouveauFichier(CheminDAcces:string);
var f:Fichier;
begin
assign(f,CheminDAcces);
rewrite(f);
close(f);
end;

procedure SupprimerFichier(CheminDAcces:string); 
var f:Fichier;
begin
assign(f,CheminDAcces);
erase(f);
end;

function OuvrirFichier(CheminDAcces:string):Fichier;
begin
assign(result,CheminDAcces);
reset(result);
end;

procedure FermerFichier(var FichierOuvert:Fichier);
begin
close(FichierOuvert);
end;

function CreerFiche(NumeroDuFilm:integer;NomDuFilm,GenreDuFilm:string):Fiche;
begin
result.numero:=NumeroDuFilm;
result.nom:=NomDuFilm;
result.genre:=GenreDuFilm;
end;

function SontEgales(Fiche1,Fiche2:Fiche):boolean;
begin
result:=(Fiche1.numero=Fiche2.numero) and (Fiche1.nom=Fiche2.nom) and (Fiche1.genre=Fiche2.genre);
end;

procedure AjouterFiche(var FichierOuvert:Fichier;FicheDuFilm:Fiche);
begin
seek(FichierOuvert,filesize(FichierOuvert));
write(FichierOuvert,FicheDuFilm);
end;

function ChercherFiche(var FichierOuvert:Fichier;FicheDuFilm:Fiche):integer;
var FicheParcourue:Fiche;
begin
seek(FichierOuvert,0);
while not eof(FichierOuvert) do
      begin
      read(FichierOuvert,FicheParcourue);
      if SontEgales(FicheParcourue,FicheDuFilm) then begin
                                                     result:=filepos(FichierOuvert);
                                                     exit;
                                                     end;
      end;
result:=-1;
end;

procedure RemplacerFiche(var FichierOuvert:Fichier;FicheOriginale,FicheModifiee:Fiche);
var i:integer;
begin
i:=ChercherFiche(FichierOuvert,FicheOriginale);
if i>=0 then begin
             seek(FichierOuvert,i);
             write(FichierOuvert,FicheModifiee); 
             end;
end;

procedure SupprimerFilm(var FichierOuvert:Fichier;FicheDuFilm:Fiche);
var i,n:integer; FicheDeFin:Fiche;
begin
i:=ChercherFiche(FichierOuvert,FicheDuFilm);
if i>=0 then begin
             n:=filesize(FichierOuvert);
             seek(FichierOuvert,n-1);
             read(FichierOuvert,FicheDeFin);
             seek(FichierOuvert,i);
             write(FichierOuvert,FicheDeFin);
             seek(FichierOuvert,n-1);
             truncate(FichierOuvert); 
             end;
end;
8
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

merci pour cet exercice
Messages postés
17
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
21 décembre 2008
10
enregistrement de quoi ???
Messages postés
9
Date d'inscription
lundi 31 mars 2008
Statut
Membre
Dernière intervention
8 mai 2008

c est un program pour gestion des
club vidio alors enregitrement de vidio doit comporte (code,nom,genre)
Messages postés
9
Date d'inscription
lundi 31 mars 2008
Statut
Membre
Dernière intervention
8 mai 2008

menu fichier:

nouveau fichier
ouvrir un fichier
supprimer un fichier
fermer un fichier

menu Edition:

ajouter un film
modifier un film
chercher un film
supprimer un film

menu Quitter:

Quitter
_____________________
écrire un algorithme qui réalise les menus suivantes:
NB: film est de type enregistrement (record)qui contien:(numero_film,nom_film,genre_film)
svp donner moi la correction.
j'ai un devoir sur cet terme

merci
Messages postés
4
Date d'inscription
dimanche 30 novembre 2008
Statut
Membre
Dernière intervention
30 novembre 2008

salut à tous ,
j'ai une série d'exercice sur les structures de contrôle conditionnelles je voulais la mettre en ligne ici même pour obtenir une correction des exercices mais je n'ai même pas réussi a la mettre en ligne .
Merci de votre aide