 Posté le: 26 11 2002 19:35 Sujet du message: code |
|
|
| Code: | const LongNp=30;
NomBinaire='b:\Metrique.bin
type Chaine=string[LongNp];
Personne = record
NomPre:chaine
Sexe:char;
Taille,Poids:real;
end;
FichBin=File of Personne;
var
Form1: TForm1;
F:FichBin;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
const NomTexte='b:\Imperial.txt';
Facteur1=0.3048;
Facteur2=0.425;
var UnePers:Personne;
Donnees:text;
Jr,Ms,An,NbPieds,NbPouces,NbLIvres:integer;
begin
assignfile (Donnees,Nomtexte);
reset (Donnees);
assignfile (F,NomBinaire);
rewrite (f);
while not eof (donnees)do
Begin
with UnePers Do
begin
readln (donnees,NomPre,Jr,Ms,An,NbPieds,NbPouces,NbLivres);
If Ms>50 then sexe:='F'
else sexe:='M';
taille :=(NbPieds+NbPiouces/12)*Facteur1;
Poids :=Nblivres*Facteur2
end;
write(F,UnePers)
end;
closefile(f)
end. |
|
|
Invité
|
S'enregistrer
Rechercher
FAQ
Connexion
