merge3.pas

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

program merg3(input,output,merge1,merge2,merge{,f,g,h});
{files with 'max' flag}
const
 max=32767;
Type
  fltype=file of integer;
var
  a,b:integer ;
  f,g,h:fltype;
  flag:boolean;
Procedure scan(var f:fltype);
 var
   x:integer;
 begin 
   while not eof(f) do
    begin
     read(f,x);
     write(x:6);
    end;
 end ;
begin
 assign(f,'merge31');
 assign(g,'merge32');
 assign(h,'merge3');
 reset(f);
 reset(g);
 rewrite(h);
  if not eof(f) then   read(f,a);
  if not eof(f) then   read(g,b);
  repeat
     if a < b then
      begin
       write(h,a) ;
       read(f,a)
      end
     else
         begin
          write(h,b) ;
          read(g,b)
         end ;
  until eof(f) and eof(g);
  a:=max;
  write(h,a);
  writeln;
  write('f:');
  reset(f);
  scan(f);
    writeln;
  write('g:');
  reset(g);
  scan(g);
    writeln;
  writeln('f+g:');
  reset(h);
  scan(h);
  close(f);
  close(g);
  close(h);
end.