|
|
program eciture_lecture;
uses wincrt;
var
lignes: text;
rep: char;
procedure ecriture_lecture(var lignes:text);
var
ligne:string;
begin
repeat
writeln('taper une ligne de texte');
readln(ligne);
writeln(lignes, ligne);
repeat
writeln('Quiter (O / N) ?');
rep:= readkey;
rep:= upcase (rep);
until (rep in ['O' , 'N']);
until (rep = 'O');
end;
procedure afficher (var lignes:text);
var ligne: string;
begin
reset (lignes);
while not (eof (lignes)) do
begin
readln (lignes, ligne);
writeln(ligne);
end;
end;
begin
assign (lignes,'c:othman.txt');
rewrite (lignes);
ecriture_lecture(lignes);
reset(lignes);
clrscr;
afficher (lignes);
close (lignes);
end.
|
1
