Salut à tous ,
SVP aidez moi
le programme est compilé mais pendant l'exécution ne marche pas
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
program pbm1;
uses wincrt;
type
ff=file of char;
var
fc:ff;
fct:text;
choix,n:byte;
 
procedure remplir(var n:byte;var fc:ff);
var i:byte;
c:char;
begin
rewrite(fc);
repeat
write('n=');
readln(n);
until(n in [1..100])and (n mod 10=0);
for i:=1 to n do
begin
c:=chr(random(ord('Z')-ord('A')+1)+ord('A'));
write(fc,c);
end;
end;
 
 
procedure copie(n:byte;var fc:ff;var fct:text);
var i,j:byte;
c:char;
ch:string;
begin
reset(fc);
rewrite(fct);
append(fct);
for i:=1 to n div 10 do
begin
ch:='';
for j:=1 to 10 do
begin
read(fc,c);
ch:=ch+c;
end;
writeln(fct,ch);
end;
close(fc);
close(fct);
end;
 
 
 
procedure affiche(var fct:text);
var i,nbc,nbv:byte;
ch:string;
begin
reset(fct);
while not(eof(fct)) do
begin
readln(fct,ch);
nbv:=0;
nbc:=0;
for i:=1 to length (ch) do
if ch[i] in ['A','E','I','U','O','Y'] then nbv:=nbv+1
else nbc:=nbc+1;
writeln('nombre de voyelles est ',nbv,' nbr de consonnes est ',nbc);
end;
close(fct);
end;
 
 
 
 
 
{program principal}
begin
assign(fc,'c:\bac2011\syrine rajhi\fcaractère.chr');
assign(fct,'c:\bac2011\syrine rajhi\fcar.txt');
 
repeat {juste pour essayer les 3 procédures}
 
writeln('1: Créer et remplir fc');
writeln('2: Créer et remplir fct');
writeln('3: Afficher le nbr de voyelles et de consonnes dans chaque ligne');
writeln('4: Quitter');
repeat
write('votre choix svp : ');
readln(choix);
until choix in [1..4];
 
case choix of
1:remplir(n,fc);
2:copie(n,fc,fct);
3:affiche(fct);
4:write('Très bien syrine ');
end;
until (choix=4);
end.