Bonjour,
PROGRAM KKK;
USES WINCRT;
TYPE
emplois=record
preson,non:string ;
num:integer;
f:file;
end ;
var
e :emplois;
f:file;
t:text;
nb:integer;
ch:string;
rep:integer;
procedure creation (var f:file);
begin
assign (f,'emplois.dat');
{I$-}
reset(f);
if (IOResult=0)then
writeln ('le fichier est deja existant voulez vous lecraser?!' );
repeat
readln (rep);
if upcase (rep='o') then
rewrite (f);
end
else
rewrite (f);
end.
{$I-}
end ;
procedure remplire(var f: file; var t:text);
begin
assign (t,'text.txt');
rewrite (t);
assign (f,'emplois.dat');
reset (f);
reset(f);
while not (EOF (f)) do
read (f,e);
writeln (t,e.num,' ',e.prenon ,' ',e.nom');
i:=i+1;
end;
write (t,le nombre total = ',i);
close (t);
end
procedure correction (var f,fc:text);
assign (fc ,'correction ,text);
rewrite(fc);
assign (f);
reset(f);
while not (eof file (f) ) do
readnl (f,linge);
if length ('linge) <> 0 then
while (ligne [i]=' ') do
delet (ligne ,1,1);
end;
writeln (fc,linge );
end;