全国青少年信息学奥林匹克竞赛培训---堆排序

最新推荐文章于 2023-05-20 10:51:59 发布

编程老头

最新推荐文章于 2023-05-20 10:51:59 发布

阅读量547

点赞数

分类专栏： Pascal基础全国信息学奥林匹克竞赛

本文链接：https://blog.csdn.net/sjtu081200/article/details/8487813

版权

Pascal基础同时被 2 个专栏收录

56 篇文章 1 订阅

订阅专栏

全国信息学奥林匹克竞赛

26 篇文章 9 订阅

订阅专栏

本文深入探讨了堆排序算法的基本原理、实现步骤及优化技巧，并通过具体实例展示了数据交换算法的应用。从数据结构的角度出发，阐述了如何利用堆的数据特性进行高效排序，同时介绍了在实际场景中灵活运用数据交换算法解决复杂问题的方法。

摘要由CSDN通过智能技术生成


var
  a:array[1..10] of integer
  =(4,3,5,1,10,2,6,9,7,8);

procedure Print;
var c:integer;
begin
  for c:=1 to 10 do
  begin
    write(a[c]:5);
  end;
  writeln;
end;


procedure adjust(i,n:integer); {max heap}
var temp:integer;
begin
  while i*2<=n do
  begin
  //Print;
  i:=i*2;{i-->left child}
  if (i<n) and (a[i]<a[i+1]) then inc(i);
  if a[i]>a[i div 2] then
  begin
    temp:=a[i];
    a[i]:=a[i div 2];
    a[i div 2]:=temp;
  end
  else break;
  end;
end;

var i,temp:integer;

begin
   Print;
   for i:=10 div 2 downto 1 do
   adjust(i,10);{init}
   Print;

   for i:=1 to 9 do
   begin
        temp:=a[1];
        a[1]:=a[10-i+1];
        a[10-i+1]:=temp;
        adjust(1,10-i);
   Print;
   end;

   readln;
end.