scan.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program scan(input,output,dat);
TYPE 
  filetype=file of integer;
VAR
  g:filetype;
  dat:string ;
Procedure sca(var f:filetype);
 var 
   x:integer;
 begin 
   while not eof(f) do
    begin
     read(f,x);
     write(x:6);
    end;
 end ;
 begin 
  dat:='data';
  assign(g,dat);
  reset(g) ;
  sca(g) ;
  close(g) ;
 end .