堆排

最新推荐文章于 2024-11-26 16:04:06 发布

原创最新推荐文章于 2024-11-26 16:04:06 发布 · 225 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一种使用堆数据结构实现的排序算法。通过定义数组元素之间的父子关系，并利用下沉操作保持堆性质，实现了高效的排序过程。文章展示了如何通过读取输入、构建初始堆并反复调整堆顶元素来完成整个排序流程。

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

var
        a,b,c:longint;
        v:array[0..200000]of longint;
procedure down(s:longint);
var
        son,t:longint;
begin
        son:=s*2;
        if son<=a then
        begin
                if (v[son]>v[son+1])and(son+1<=a) then inc(son);
                if (son<=a)and(v[son]<v[s]) then
                begin
                        t:=v[s];
                        v[s]:=v[son];
                        v[son]:=t;
                        down(son);
                end;
        end;
end;
procedure writ;
begin
        writeln(v[1]);
        v[1]:=v[a];
        dec(a);
        down(1);
        if a=0 then exit;
        writ;
end;
begin
        readln(a);
        for b:=1 to a do
		readln(v[b]);
        for b:=a downto 1 do 
	begin
                down(b);
        end;
        writ;
end.