Création d'un fichier d'étudiants
Salut tout le monde
Je suis nouveau sur le forum.
Le prof nous a donné un exo à faire et le voilà :
Citation:
Faire le programme Pascal qui crée un fichier étudiant.txt dont la structure est la suivante : Matricule, nom, prénom, ville et moyenne.
Mais voilà, je suis encore novice donc j'ai procédé comme ceci :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
PROGRAM Etudiant (input, output);
Type
a = record
Matricule : Integer;
Nom : String;
Prenom : String;
Ville : String;
Moyenne : Real;
end;
VAR
P : file of a; v : a;
L : Boolean;
S : Char;
BEGIN
assign(P, 'c:\etudiant.txt');
rewrite (P);
L := True;
While L do
Begin
readln (P,V);
writeln (P,V);
writeln ('voulez vous continuez (O) (N) '); Read (s);
If s := N than L : False;
End;
Close (P)
END. |
D'après TP, le problème est à partir de (writeln ('voulez vous continuez (O) (N)....) mais je ne sais pas comment le résoudre.
