Enregistrement type Record à compléter

simquest Messages postés 1 Date d'inscription mardi 22 mai 2007 Statut Membre Dernière intervention 22 mai 2007 - 22 mai 2007 à 19:27
simquest Messages postés 1 Date d'inscription mardi 22 mai 2007 Statut Membre Dernière intervention 22 mai 2007 - 22 mai 2007 à 19:27
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
Rejoignez-nous