二分法的基础运用
快速排序的基本思想为,通过一趟排序将要排序的数据分割成独立的两部分,其中一部分的所有数据都比另外一部分的所有数据都要小,然后再按此方法对这两部分数据分别进行快速排序,整个排序过程可以递归进行,以此达到整个数据变成有序序列。
procedure switch(Var a,b:longint);
Var tmp:longint;
Begin
tmp:=a;
a:=b;
b:=tmp;
end;
procedure qsort(i,j:longint);
Var l,r,mid:longint;
Begin
l:=i;
r:=j;
mid:=a[(i+j)>>1];
repeat
while (a[i]<mid) do
Begin
inc(i);
end;
while (a[j]>mid) do
Begin
dec(j);
end;
if i<=j then
Begin
switch(a[i],a[j]);
inc(i);
dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if j>l then qsort(l,j);
end;