会python真的可以为所欲为0(回)
356天前
这里还有人吗1(回)
541天前这里还有人吗0(回)
541天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
766天前到处都是羊，不想上班0(回)
846天前
鸽子
0(回)
850天前{a为序列表，tmp为辅助数组} |
procedure merge(var a:listtype; p,q,r:integer); |
{将已排序好的子序列a[p..q]与a[q+1..r]合并为有序的tmp[p..r]} |
var I,j,t:integer; |
tmp:listtype; |
begin |
t:=p;i:=p;j:=q+1;{t为tmp指针，I,j分别为左右子序列的指针} |
while (t<=r) do begin |
if (i<=q){左序列有剩余} and ((j>r) or (a[i]<=a[j])) {满足取左边序列当前元素的要求} |
then begin |
tmp[t]:=a[i]; inc(i); |
end |
else begin |
tmp[t]:=a[j];inc(j); |
end; |
inc(t); |
end; |
for i:=p to r do a[i]:=tmp[i]; |
end;{merge} |
procedure merge_sort(var a:listtype; p,r: integer); {合并排序a[p..r]} |
var q:integer; |
begin |
if p<>r then begin |
q:=(p+r-1) div 2; |
merge_sort (a,p,q); |
merge_sort (a,q+1,r); |
merge (a,p,q,r); |
end; |
end; |
{main} |
begin |
merge_sort(a,1,n); |
end. |
