slide1
Download
Skip this Video
Download Presentation
Fichiers et Tableaux Avril 2012

Loading in 2 Seconds...

play fullscreen
1 / 20

Fichiers et Tableaux Avril 2012 - PowerPoint PPT Presentation


  • 74 Views
  • Uploaded on

TP. Fichiers et Tableaux Avril 2012. Un fichier. Permet le stockage de données sur des supports de mémoire externes ( donc les données ne seront pas perdues à la fin de l’exécution des programmes). Déclaration. Var Fichier : file of <type de base> ;. Pas de type : Array

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'Fichiers et Tableaux Avril 2012' - prentice


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
slide1

TP

Fichiers et Tableaux

Avril 2012

un fichier
Un fichier
  • Permet le stockage de données sur des supports de mémoire externes

(donc les données ne seront pas perdues à la fin de l’exécution des programmes)

d claration
Déclaration

Var

Fichier : file of ;

  • Pas de type :
  • Array
  • File
exemple
Exemple

Type

Personne = record

Nom : string[20];

Prenom: string[20];

Age: integer;

end;

Var

F: file of personne;

slide6
?
  • Déclaration d’un fichier d’articles ,,
  • Lecture de 20 articles et leur stockage dans le fichier,,,,
u n article est caract ris par
Un Article est caractérisé par:
  • Une référence ………… numérique
  • Un nom ………… chaine de caractères
  • Quantité en stock de chaque article
  • Le stock minimal pour le ravitaillement de l’article………… numérique
  • Le prix unitaire de chaque article………… numérique
  • Le prix total de chaque article en stock………… numérique
slide8
pu : integer;

Le prix total

program tp uses crt
Program TP;uses CRT;

Type

Article = record

Ref: Byte;

Nom : string[20];

qte: Byte;

Stck_min: Byte;

Prix_uni: Word;

Prix_total: Word;

end;

Var

F: file of article;

assignation de fichier
Assignation de fichier

Assign (nom _logique, nom_physique);

Nom dans le programme

Nom sur le disque

Exemple

Assign(f, ‘C:\perso.dat’ )

slide12
Begin
    • Clrscr;
    • Assign (F, ‘stock.dat’);
ouverture d un fichier en criture
Ouverture d’un fichier en écriture

Rewrite (nom_logique);

Écriture d’un enregistrement dans un fichier

Write (nom_logique, nom_variable);

slide14
rewrite(F);

For i:=1 to 20do

begin

writeln('donner le nom de l article ',i);

readln(art.nom);

writeln('donner la quantite de l article‘,i);

readln(art.quantite);

write(F , art);

end;

slide15
Ouverture d’un fichier en Lecture

Reset (nom_logique);

Lecture d’un enregistrement dans un fichier

Read (nom_logique, nom_variable);

slide16
reset (F);

whilenot eof(F) do

begin

read(F, art);

writeln(art.nom);

end;

slide17
Fermeture d’ un fichier

Close (nom_logique);

slide18
close(F);
  • Readkey;
  • end.
ad