Enregistrement type Record à compléter

Signaler
Messages postés
1
Date d'inscription
mardi 22 mai 2007
Statut
Membre
Dernière intervention
22 mai 2007
-
Messages postés
1
Date d'inscription
mardi 22 mai 2007
Statut
Membre
Dernière intervention
22 mai 2007
-
Program exercice3;

Je dois faire un enregistrement de type Record.  Je ne suis pas très familier avec ce type.
On dois remplir des fiches de personnes avec leur niveau de 1 a 4, résidence 1 pour ville, 2 pour campagne, année naissance, revenus annuel.
Ensuite, manipuler ces données.  Quelqu'un pourrais me donner un coup de main ? 
Il faudrait utiliser ex:   readln(fichier.niv) pour compléter cet enregistrement. Mais je ne sais pas comment faire.




type


listfiche = ^TFiche




  TFiche = record
    niv: 1..4;
    res: 1..2;
    annee: 1..150;
    reven: integer;
    suivant : listfiche
end;






var     Fichier: TFiche;



begin

writeln('Entrez  votre niveau, soit 1 - 2 - 3 - 4');
readln(Fichier.niv);
writeln('Entrez votre lieu de résidence 1=ville 2=campagne');
readln(Fichier.res);

etc.....


Simon Martineau
Alias simquest