Page 11 - PowerPoint 演示文稿

Analyse de la procédure affichef

DEF PROC Affichef (var f : tfprod)
Résultat = aff
aff = [ Reset(f) ]
tant que Non(Fin_fichier(f) faire
Lire(f,dp)
Avec dp faire
Ecrire(« code », code)
Ecrire(« Désignation », desig)
Ecrire(« quantité », qte)
Ecrire(« Prix unitaire », puv)
Ecrire(« Prix total », pvt)
Fin Avec
Fin tant que
Fermer (f)
FIN Affichef

Rôle Syntaxe algorithmique Syntaxe en Pascal

Supprimer un fichier Effacer (nom_logique) Erase (nom_logique) ;
Physique du disque (il
faut qu’il soit fermé)

Changer le nom d'un Renommer(anc_nom_logique, Rename (anc_nom_logique,
fichier. (nom physique) nouv_nom) nouv_nom) ;

Tronquer le fichier, à la Tronquer (nom_logique) Truncate(nom_logique)
position courante du
pointeur de fichier. (les
informations au-delà du
pointeur seront perdues)

Directive de compilation ({I-} et {I+}
Tous les appels de procédures et de fonctions d’entrées-sorties font automatiquement l’objet

d’un contrôle d’erreur. Si une erreur survient, le programme se termine en affichant un
message d’erreur à l’exécution (Run time error) ce contrôle peut être désactivé et réactivés en
utilisant les directives de compilation {I-} et {I+}
Remarque : Les opérations de manipulation des fichiers sont sujettes à des nombreuses
erreurs indépendantes du programme. Tentative d'ouverture d'un fichier qui n'existe pas avec
une des commandes suivantes :
▪Reset (ouvrir un fichier)
▪Append (ouvrir un fichier texte en mode ajout)
• Seek (Pointer un élément ou demander un élément après la fin du fichier (accès direct)
▪Rename (renommer un fichier)
▪Erase (supprimer un fichier)

Pour éviter cette erreur d’exécution :

Page 11