Aller au contenu
Invité Crazy_Rabbit

Problème de programme sous Dev-Pascal

Messages recommandés

Invité Crazy_Rabbit

Bonjours,

j'ai commencé un programme utilisant les pointeurs (c'est une premiere fois), dans le but de crée des fichiers à l'aide de variables RECORD, malheuresement une erreur me bloque et je ne trouve pas; c'est peut etre bete mais une aide exterieur me serait precieuse.

 

program creation;

 

type

ETUDIANT = RECORD

NUMERO : integer;

NOM : STRING[25];

PRENOM : STRING[20];

SEXE : CHAR;

FAC : CHAR;

AE : INTEGER;

END;

 

VAR

FETUDIANT : FILE OF ETUDIANT;

FICHE : ETUDIANT;

REP : CHAR;

 

BEGIN

 

ASSIGN(FETUDIANT,'C:\Users\Morgan\Documents\program dev-pascal');

 

REWRITE(FETUDIANT);

 

WRITELN('Voulez vous creer un enregistrement ? (O/N)');

READLN(REP);

 

WHILE REP='O' DO

BEGIN

WRITELN('NUMERO =');

READLN(FICHE.NUMERO);

 

WRITELN('NOM =');

READLN(FICHE.NOM);

 

WRITELN('PRENOM =');

READLN(FICHE.PRENOM);

 

WRITELN('SEXE =');

READLN(FICHE.SEXE);

 

WRITELN('FACULTE =');

READLN(FICHE.FAC);

 

WRITELN('ANNEE D ETUDE =');

READLN(FICHE.AE);

 

WRITE(FETUDIANT,FICHE);

 

WRITELN('Creer un autre enregistrement ? (O/N)');

READLN(REP);

 

END;

 

CLOSE(FETUDIANT);

READLN();

END.

 

 

Le program compile mais une fois executé il se referme directement, cependant un fichier se crée à l'emplacement voulu mais contenant du texte incomprehensible avec des bouts du program...

 

Si vous avez une solution, merci.

Partager ce message


Lien à poster
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant

×