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
| PROGRAM lecteurtxt(F);
uses wincrt;
VAR f,f2: text; S : string; n:integer;
procedure saisie(var f:text;var n:integer);
var i:integer ;
begin
rewrite(f);
repeat
writeln('donner le nombre de caractéres a ajouter');readln(n);
until n > 2 ;
for i:= 1 to n do
begin
writeln('donner un caractére (0,1)');readln(s);
writeln(f,s);
end;
close(f);
end;
procedure remplacer(var f,f2:text);
begin
rewrite(f2);
reset(f);
while not(eof(f)) do
begin
readln(f,s);
if s='1' then writeln(f2,'2')
else writeln(f2,'0');
end;
close(f);
close(f2);
end;
procedure affichage(var f2:text);
begin
reset(f2);
reset(f);
write('le fichier initial : ');
while not(eof(f)) do
begin
readln(f,s);
write(s,' ');
end;
writeln;
write('le fichier modifier : ');
while not(eof(f2)) do
begin
readln(f2,s);
write(s,' ');
end;
close(f2);
close(f);
end;
BEGIN
assign(F,'c:\texte.txt');
assign(F2,'c:\texte2.temp');
filemode:=2;
saisie(f,n);
remplacer(f,f2);
clrscr;
affichage(f2);
END. |
Partager