Bonjour,
l'erreur se produit à l'entrée de la procédure affichage:
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68 program test; uses wincrt; var f : text; choix : byte; procedure affichage_fichier ( var f : text ); var ph : string; begin while not eof(f) do begin readln(f, ph); writeln(ph); end; end; procedure remplissage_fichier ( var f : text ); var c : byte; ph : string; begin {$i-} reset(f); {$i+} if ioresult <> 0 then rewrite(f); append(f); repeat clrscr; write('la pharse à saisie'); readln(ph); writeln(f, ph); repeat write('saisir une autre phrase (1 pour oui et 0 pour non)'); readln(c); until c in [0..1]; until c = 0; end; procedure menu; begin writeln('1 : affichage du fichier'); writeln('2 : remplissage de fichier'); writeln('3 : quitter'); end; procedure boucle ( var choix : byte ); begin repeat clrscr; menu; repeat write('votre choix= '); readln(choix); until choix in [1..3]; case choix of 1 : affichage_fichier(f); 2 : remplissage_fichier(f); 3 : donewincrt; end; until choix = 3; end; begin assign(f, 'D:\f.txt'); boucle(choix); close(f); end.
Partager