【SSLGZ 1271】排序I

最新推荐文章于 2019-08-07 16:10:34 发布

Fallen_Angel001

最新推荐文章于 2019-08-07 16:10:34 发布

阅读量480

点赞数

CC 4.0 BY-SA版权

分类专栏：排序堆文章标签：堆排序

本文链接：https://blog.youkuaiyun.com/Fallen_Angel001/article/details/56489032

排序同时被 2 个专栏收录

15 篇文章

订阅专栏

堆

6 篇文章

订阅专栏

本文介绍了一种使用堆排序算法对一组数字进行升序排列的方法。通过具体的样例输入和输出展示了算法的应用过程，并提供了完整的Pascal语言实现代码。该算法首先建立最大堆，然后将堆顶元素与最后一个元素交换并重新调整堆，重复此步骤直至完成排序。

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

问题描述
从小到大。
样例输入
5
3 1 2 4 5
样例输出
1 2 3 4 5
算法讨论
堆排序

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

procedure siftdown(var h:arr;n,i:longint);
var
  t:longint;
  done:boolean;
begin
  if i*2>n
    then exit;
  done:=false;
  repeat
    i:=2*i;
    if (i+1<=n) and (a[i]<a[i+1])
      then i:=i+1;
    if h[i div 2]<h[i]
      then begin
             t:=h[i div 2];
             h[i div 2]:=h[i];
             h[i]:=t
           end
      else done:=true
  until (i*2>n) or done;
end;

begin
  read(n);
  for i:=1 to n do
    read(a[i]);
  for i:=n div 2 downto 1 do
    siftdown(a,n,i);
  for i:=n downto 2 do
    begin
      t:=a[1]; a[1]:=a[i]; a[i]:=t;
      siftdown(a,i-1,1)
    end;
  for i:=1 to n do
    write(a[i],' ')
end.