Résumer sur les fichier et les enregistrement :

I- Les enregistrements   : Déclaration en algorithmique Déclaration en pascal ExempleNom_type =EnregistrementChamp1 : Type1 …Champ n : Type nFin Nom_TypeVariable identification_objet :Nom_type

Type Nom_type =RecordChamp1 : Type1 ; …Champ n : Type n ;End ;Var identification_objet :Nom_type

Type Produit =RecordReference :integer ;Désignation : string ;PU : real ;Quantite :integer ;End ;Var P : Produit ;

-Utilisation des enregistrements :AffectationSyntaxe en algorithmique Syntaxen en pascal ExempleVariable.champ valeur Variable.champ :=valeur ; Produit.PU ≔8.500 ;

Lecture :Syntaxe en algorithmique Syntaxe en pascal ExempleLire (Variable.champ)  Read(Variable.champ) ; Read(Produit.PU) ;

Ecriture :Syntaxe en algorithmique Syntaxe en pascal ExempleEcrire(Variable.champ)  Write(Variable.champ) ; Write(Produit.PU) ;

Structure de contrôle Avec .. Faire

Syntaxe en algorithmique Syntaxe en pascal ExempleAvec Variable Faire{ensemble d’action}Fin avec 

With Variable doBegin{ensemble d’action}End ;

With produit doBeginNom ≔’salem’ ;Prenom ≔’oussama’ ;Age ≔12 ;End ;

Tableau d’enregistrement   :

Exemple de déclaration en Algorithme Exemple de déclaration en PascalÉtudiant =enregistrementCIN : entierNom : chainePrénom : chaineAge : entierMoy : réelFin Étudiant

Étudiant =recordCIN : integer ;Nom : string ;Prénom : string ; Age : integer ;Moy : real ;End ;

Tab : tableau de 32 Étudiant Tab=array [1..32] of Étudiant ;Var T :Tab ;

II-Les fichiers d’enregistrement Principe d’exploitation :

Commentaire Algorithme PascalAssigner ou associé (relier le nom logique (interne) et le nom physique (sur un support physique))

Assigner(nom-Log,nom-Phy)Assigner(F,’’c:\Fich.dat’’)Associer(F,’’c:\Fich.dat’’)

Assign(nom-Log,nom-Phy) ;Assign(F,’c:\Fich.dat’) ;

Ouverture en mode création (Ouvrir et créer un fichier qui n’existe pas si non il sera écrasé)

Recréer(nom-Log)Recréer(F)

Rewrite(nom-Log) ;Rewrite(F) ;

Ouverture en lecture               (S’appelle aussi remise à zéro)

Ouvrir(nom-Log)Ouvrir(F)

Reset(nom-Log) ;Reset(F) ;

Écriture  dans   le  fichier   (Écrire ou modifier dans le fichier)

Écrire(nom-Log,Var)Écrire(Etudiant,Etu)

Write(nom-Log,Var) ;Write(Etudiant,Etu) ;

Lecture dans le fichier Lire(nom-Log,Var)Lire(Etudiant,Etu)

Read(nom-Log,Var)Read(Etudiant,Etu) ;

Fermeture du fichier Fermer(nom-Log)Fermer(F)

Close(nom-Log) ;Close(F) ;

Fichier à accès directe      :  

Principe d’exploitation

Commentaire Algorithme PascalAccès à un élément du fichier par numéro. 

Pointer(nom-Log,Num)Pointer(Etudiant,I-1)

Seek (nom-Log,Num);Seek(Etudiant,I-1) ;

Teste   de   fin   de   fichier (Retourne   le   nombre  de   bloc du fichier)

Taille_fichier(nom-Log)Taille_fichier(F)

FileSize(nom-Log) ;FileSize(F) ;

Autre fonction et procédures prédéfinies      

Commentaire Algorithme PascalFournit le numéro de l’élément sur lequel se trouve le pointeur de fichier 

Position_fichier(nom-Logique)

FilePos(nom-Log) ;FilePos(F) ;

Effacer le ficher Effacer(nom-Logique) Erase(nom-Log) ;Changer le nom d’un fichier Renommer(ancien nom, 

Nouveau nom)Rename(ancien nom, Nouveau nom) ;

Éliminer une partie du fichier à partir de la position courant du pointeur 

Tronquer(nom-Logique) Truncate(nom-Log)

fichier textes

Déclaration 

Algorithme Pascal Exemple Nom_logique :texte Nom_logique :text ; Ftext : text;

Autre procédures est fonctions qu’on peut appliquer à un fichier texte  

Commentaire Algorithme PascalOuverture et Ajout : L’instruction "Ajouter" permet d’ouvrir un fichier et positionner à la fin de ce dernier pour lui faciliter uniquement l’opération d’ajout.

Ajouter(Nom logique) Append(Nom_ logique) ;

Lire_nl : Procédure qui pointe à la prochaine ligne (nl= nouvelle ligne). Elle place le pointeur de fichier sur le début de cette ligne.

Lire_nl(Nom logique,ligne)

ReadLn(Nom logique,ligne) ;

Ecrire_nl : Procédure qui introduit dans le fichier texte un ou plusieurs lignes.

Ecrire_nl  (Nom logique,ligne)

WriteLn(Nom logique,ligne) ;

Fin_ligne : Fonction qui retourne Vrai si l’on se trouve sur le caractère CR (retour chariot)

Fin_ligne  (Nom logique) EoLn(Nom_ logique) ;

Chercher_Fin_ligne : Fonction indique la fin de ligne et supprime les espaces.

Chercher_Fin_ligne  (Nom logique)

seekEoLn(Nom_ logique) ;

Chercher_Fin_ fichier : Fonction indique la fin de fichier mais supprime les espaces. 

Chercher_Fin_ fichier (Nom logique)

seekEOF(Nom__logique) ;

Fin de fichier : Fonction booléenne ; utilisée pour les fichiers ; permettant d’indiquer l’atteinte de la fin du fichier (marque de fin de fichier).

Fin_fichier  (Nom logique)

EOF(Nom_logique) ;