merge.pas

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

program merge(input,output,merge1,merge2,merge{,f,g,h});
Type
  fltype=file of integer;
var
  a,b:integer ;
  f,g,h:fltype;
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,'merge11');
 assign(g,'merge12');
 assign(h,'merge1');
 reset(f);
 reset(g);
 rewrite(h);
  if not eof(f) then   read(f,a);
  if not eof(f) then   read(g,b);
  While not eof(f) and not eof(g) do
   begin
     if a < b then
      begin
       write(h,a) ;
       read(f,a)
      end
      else
         begin
          write(h,b) ;
          read(g,b)
         end ;
   end;
  While not eof(f) do
     if a < b then
      begin
       write(h,a) ;
       read(f,a)
      end
     else
        begin
         write(h,b) ;
         read(f,b)
        end ;  
  While not eof(g) do
     if a < b then
      begin
       write(h,a) ;
       read(g,a)
      end
     else
        begin
         write(h,b) ;
         read(g,b)
        end ;
  if a<b then
        begin
          write(h,a);
          write(h,b)
        end
     else
        begin
            write(h,b);
            write(h,a)
        end ;
  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.