à 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.
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.
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.
J'éspère que je vais avoir une réponse, je vous remerci tous.