大家好,小问来为大家解答以上问题。堆排序算法思想，堆排序算法这个很多人还不知道,现在让我们一起来看看吧！
1、初始堆： 49 a[1]
2、 38 65 a[2] a[3]
3、 97 76 13 27 a[4] a[5] a[6] a[7]
4、 50 a[8]
5、procedure heap(nn,ii:integer);
6、 var x,i,j:integer;
7、 begin
8、 i:=ii;x:=a[ii];j:=2*ii;
9、 while j<=nn do
10、 begin
11、 if (j<nn) and(a[j]<a[j+1] then j:=j+1;
12、 if x<a[j] then begin a[i]:=a[j];i:=j;j:=2*i;end
13、 else j:=nn+1;
14、 end;
15、 end;
16、主程序：
17、for i:=n div 2 downto 1 do heap(n,i); /heap相当于搜索顶点i的所有子节点，找出最大的和它替换
18、for i:=n downto 2 do
19、 begin
20、 temp:=a[1];a[1]:=a[i];a[i]:=temp; /将当前最大的数（放在a[1]）和第i个数交换，保证从后面往前数是
21、 heap(i-1,1); 从大到小，则程序完成时，数组a从前往后是从小到大
22、 end;
23、至于过程自己用笔算，很快就会明白，不明白算了就明白。
以上就是【堆排序算法思想，堆排序算法】相关内容。
