à tous,
je remerci dieu, à cause de ce forum qui m'a aider beaucoup pour faire un pas en avant à la programmation en Pascal. Je vous remerci de tout mon coeur.![]()
Cette fois j'ai fait un petit prog qui écrit des données dans un fichier typé, ces données sont de type composé, composé d'une phrase et de sa taille.
Alors le problème c'est qu'il n'y a pas une résultat aprés l'execution de ce code, seulement l'affichage du message de la saisie de n, par la suite il n'ya pas autre affichage à l'écran qui demande la saisie des phrases, même que le fich est crée mais vide.
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
28
29
30
31
32
33
34
35
36 program fichier; uses wincrt; type phrase=record ph : string; m : integer; end; var enreg : phrase; f : file of phrase; n,i : integer; procedure taille_n(n : integer); begin repeat write('Donnez le nombre de phrases à saisir : '); read(n); until n in [1..10]; end; begin assign(f,'saf.dat'); rewrite(f); taille_n(n); for i:=1 to n do begin writeln('Entrez la',i,'ème phrase : '); readln (enreg.ph); enreg.m := length (enreg.ph); write(f,enreg); end; close(f); end.
J'éspère que je vais avoir une réponse, je vous remerci tous.![]()
Partager