会python真的可以为所欲为0(回)
353天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
763天前到处都是羊，不想上班0(回)
843天前
鸽子
0(回)
847天前procedure sift(i,m:integer);{调整以i为根的子树成为堆,m为结点总数} |
var k:integer; |
begin |
a[0]:=a[i]; k:=2*i;{在完全二叉树中结点i的左孩子为2*i,右孩子为2*i+1} |
while k<=m do begin |
if (k<m) and (a[k]<a[k+1]) then inc(k);{找出a[k]与a[k+1]中较大值} |
if a[0]<a[k] then begin a[i]:=a[k];i:=k;k:=2*i; end |
else k:=m+1; |
end; |
a[i]:=a[0]; {将根放在合适的位置} |
end; |
procedure heapsort; |
var |
j:integer; |
begin |
for j:=n div 2 downto 1 do sift(j,n); |
for j:=n downto 2 do begin |
swap(a[1],a[j]); |
sift(1,j-1); |
end; |
end; |
