Salut tout le monde
Je suis nouveau sur le forum.
Le prof nous a donné un exo à faire et le voilà :
Mais voilà, je suis encore novice donc j'ai procédé comme ceci :Faire le programme Pascal qui crée un fichier étudiant.txt dont la structure est la suivante : Matricule, nom, prénom, ville et moyenne.
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.
Partager