Application 22-10-2012

Bonjour chers élèves.

Le fichier "etudiants.inf" est saisi en respectant la structure de l'enregistrement etudiant:

nom,prenom : chaine de caractères

cin : entier long

moy1,moy2,moy : réel

Donc pour lire correctement on doit respecter la structure de l'enregistrement.

=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

Par exemple :

procedure texte (var g:etud ; var t : texte);
var et:etud;
begin
rewrite(t);
reset(g);
while not eof(g) do
begin
read(g,et);
writeln(t,et.nom:15,' *** ',et.pre:15,' *** ',et.cin:8,' *** ',et.moy:10:2);
end;
close(g);
close(t);
end;