解法二：自底向下(buttomupsort)

最新推荐文章于 2021-06-23 09:41:46 发布

原创最新推荐文章于 2021-06-23 09:41:46 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

PASCAL 分治专栏收录该内容

9 篇文章

订阅专栏

本文介绍了自底向上的二路归并排序算法，该方法通过不断两两归并有序子文件，最终形成完整的有序序列。详细展示了算法过程，并提供了一段Pascal代码实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

解法二：自底向下(buttomupsort)

自底向上的基本思想　　自底向上的基本思想是：第1趟归并排序时，将待排序的文件R[1..n]看作是n个长度为1的有序子文件，将这些子文件两两归并，若n为偶数，则得到个长度为2的有序子文件；若n为奇数，则最后一个子文件轮空(不参与归并)。故本趟归并完成后，前个有序子文件长度为2，但最后一个子文件长度仍为1；第2趟归并则是将第1趟归并所得到的个有序的子文件两两归并，如此反复，直到最后得到一个长度为n的有序文件为止。　　上述的每次归并操作，均是将两个有序的子文件合并成一个有序的子文件，故称其为"二路归并排序"。

同上一章？？？！！！

const
  maxn=100000;
type
  arr=array[1..maxn] of longint;
var
  a:arr;
  n:longint;

procedure init;
  var
    i:longint;
  begin
    readln(n);
    for i:=1 to n do read(a[i]);
  end;

procedure prant;
  var
    i:longint;
begin
  for i:=1 to n do write(a[i],' ');
end;

procedure aa(l,mid,r:longint);
var
  i,j,k,p:longint;
  t:arr;
begin
  i:=l; j:=mid+1;
  p:=0;
  while (i<=mid) and (j<=r) do
    if a[i]<a[j]
       then begin
               inc(p);
               t[p]:=a[i];
              inc(i);
              end
        else begin
               inc(p);
               t[p]:=a[j];
               inc(j);

            end;
   for k:=i to mid do
     begin
        inc(p);
        t[p]:=a[k];
      end;
   for k:=j to r do
     begin
       inc(p);
       t[p]:=a[k];
     end;
   for k:=l to r do
     a[k]:=t[k-l+1];
end;
procedure aaa;
var
  t,i,j,s:longint;
begin
  t:=1;
  while t<=n do
    begin
      s:=t;
      t:=2*s;
      i:=0;
      while i+t<=n do
        begin
          aa(i+1,i+s,i+t);
          i:=i+t;
        end;
      if i+s<n then aa(i+1,i+s,n);
    end;
end;
begin
  init;
  aaa;
  prant;
end.