Qsort
快排啊
就是快速排序
怎么啦？？？

程序.................

基本原理：
在数组中，以一个数为基准，通过交换使这个数一边的数都比它大（不一定有序），另一边都比它小，再递归排序，直到完成排序。
参见:http://www.hur.cn/program/bbs/specialbbs/200111/511598.html

快排呀，过程在这里:
procedure qsort(l,r:integer);
  var i,j,x,y:integer;
      a:array[1..255]of real;
  begin
    i:=l;j:=r;
    x：=a[i];
    repeat
      while a[i]<x do inc(i);
      while x<a[j] do dec(j);
      if i<=j then begin
                     y:=a[i];
                     a[i]:=a[j];
                     a[j]:=y;
                     inc(i);
                     dec(j);
                   end;
   until i>j;
   if i<r then qsort(i,r);
   if l<j then qsort(l,j);
  end;

demo/text/qsort
PASCAL里有现成的用!!~~~~~超P

王翔，你别以为你那排序很好，你忘了你用快排做津津的存储计划才得十分，用选择排序得了100分吗？[em6]

吵屁呀！！！
现成的对的，要不要来看？