Examen du BAC 2012

program devoir_bac_2012;
uses wincrt;
type
chiffrer = record
lettre : char ;
codage : string [6] ;
end;
dev_inf = file of chiffrer ;
var
f : dev_inf; c : chiffrer; g: text ;
procedure remp_texte (var g : text );
var
ch : string;
begin
assign (g,'c:\braille.txt');
rewrite (g);
ch := 'EXAMEN';
write(g,ch);
ch:= 'DU';
append(g);
write(g,ch);
append(g);
ch:= 'BAC';
write(g,ch);
close(g);
end;
procedure remp_code (var f : dev_inf; c : chiffrer);
var
i : char ;
begin
assign (f,'c:\codes_braille.dat');
rewrite(f);
for i:= 'A' to 'Z' do
begin
c.lettre := i ;
case i of
'A': c.codage := '*-----';
'B': c.codage := '**----' ;
'C': c.codage := '*--*--' ;
'D': c.codage := '*--**-' ;
'E': c.codage := '*---*-' ;
'F': c.codage := '**-*--' ;
'G': c.codage := '**-**-' ;
'H': c.codage := '**--*-' ;
'I': c.codage := '-*-*--' ;
'J': c.codage := '-*-**-' ;
'K': c.codage := '*-*---' ;
'L': c.codage := '***---' ;
'M': c.codage := '*-**--' ;
'N': c.codage := '*-***-' ;
'O': c.codage := '*-*-*-' ;
'P': c.codage := '****--' ;
'Q': c.codage := '*****-' ;
'R': c.codage := '***-*-' ;
'S': c.codage := '-***--' ;
'T': c.codage := '-****-' ;
'U': c.codage := '*-*--*' ;
'V': c.codage := '***--*' ;
'W': c.codage := '-*-***' ;
'X': c.codage := '*-**-*' ;
'Y': c.codage := '*-****' ;
'Z': c.codage := '*_*_**' ;
end;
write(f,c);
end;
close(f);
end;
procedure affiche (var f : dev_inf ; var g : text );
var
i : integer ; ch : string ; ch1:string;
begin
assign(g,'c:\braille.txt');
reset(g);
read(g,ch);
assign(f,'c:\codes_braille.dat');
for i:= 1 to length(ch) do
begin
reset(f); read(f,c);
if ch[i] = c.lettre then
ch1 := concat(ch1,c.codage);
while (not ( eof (f) )) and (not ( upcase(ch[i]) = c.lettre )) do
begin
read(f,c);
if upcase(ch[i]) = c.lettre then
ch1 := concat(ch1,c.codage) ;
end;
end;
close(f);
rewrite(g);
write(g,ch1);
close(g);
writeln(ch1);
end;
begin
remp_texte(g);
remp_code(f,c);
affiche(f,g);
end.
salut Monsieur ,
svp kene feme fautes, 9oulli chnoma & comment faire pour les corriger !

Salam Mondher :
Pas d'erreur mais une manquance dans la procédure remp_texte (writeln au lieu de write):
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
procedure remp_texte (var g : text );
var
ch : string;
begin
assign (g,'c:\braille.txt');
rewrite (g);
ch := 'EXAMEN';
writeln(g,ch);
ch:= 'DU';
append(g);
writeln(g,ch);
append(g);
ch:= 'BAC';
writeln(g,ch);
close(g);
end;

Pour la procédure affiche, il faut afficher le code de chaque mot dans une ligne à part.
Tu dois modifier la procédure affiche.

procedure affiche (var f : dev_inf ; var g : text );
var
i : integer ; ch : string ; ch1:string;
begin
reset(g);
rewrite(g1);
while not eof(g) do
begin
ch1:='';
readln(g,ch);
for i:= 1 to length(ch) do
begin
reset(f); read(f,c);
if ch[i] = c.lettre then
ch1 := concat(ch1,c.codage);
while (not ( eof (f) )) and (not ( upcase(ch[i]) = c.lettre )) do
begin
read(f,c);
if upcase(ch[i]) = c.lettre then
ch1 := concat(ch1,c.codage);
end;
end;
close(f);
writeln(g1,ch1);
end;
close(g);
close(g1);
end;

Merci
il faut ajouter aussi
reset(g1);
ch:='';
while not (eof(g1)) do
begin
readln(g1,ch);
writeln(ch);
end;
close(g1);