del.pas

来自「关于课件 好多种结构的算法 等等 大家自己看吧」· PAS 代码 · 共 58 行

program del(input,output,g);
type
 deltp=integer ;
 fltp=file of deltp;
var
 i:integer ; 
 m:deltp ; 
 g:fltp ; 
 data:string ;                 
Procedure delfl(var f:fltp ; m:deltp);
 var
   i:integer;
   h:fltp;
   x:deltp;
 begin
    assign(h,'temp') ;
    rewrite(h);
    while not eof(f) do
     begin
      read(f,x);
      if x<> m then  write(h,x);
     end ; 
    seek(h,0);
    rewrite(f);
    while not eof(h) do
     begin
      read(h,x);
      write(f,x);
     end ;
    close(f);
    close(h);
 end;
Procedure scan(var f:fltp);
 var
   x:integer;
 begin
   while not eof(f) do
    begin
     read(f,x);
     write(x:5);
    end;
    writeln;
 end ;
begin
   data:='delfile' ;
   assign(g,data);
   reset(g);
   scan(g);
   write('del num= ');
   readln(m);
   reset(g);
   delfl(g,m);
   assign(g,data) ;
   reset(g);
   scan(g);
   close(g);
end .