pascal 的快速排序程序 查错递归没有终止的边界,pascal当然崩溃了。。。。while
递归没有终止的边界,pascal当然崩溃了。。。。
while a[i]<x do i:=i+1;
while x<a[j] do j:=j-1;
改成:
while (a[i]<=x) and (i<j) do i:=i+1;
while (a[j]>=x) and (i<j) do i:=i+1;
if i <=j then
begin
y:=a[i];a[i]:=a[j];a[j]:=y;
i:=i+1;j:=j-1;
end;
改成
if i<j then .......