Question

求快速排序的例子，Free Pascal的

下星期就复赛了，求一个快排的例子来看看，复习一下

Answer 1

program kuaipai; var i,j,k,l,m,n:longint; a:array[1..1000] of longint; procedure qsort(m,n:Longint); var i,j,k,t:longint; begin i:=m; j:=n; k:=a[(i+j) shr 1]; repeat while a[i]>k do inc(i); while a[j]<k do dec(j); if i<=j then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; inc(i); dec(j); end; until i>j; if m<j then qsort(m,j); if i<n then qsort(i,n); end; begin readln(k); for i:=1 to k do read(a[i]); qsort(1,k); j:=0; for i:=k downto 1 do begin inc(j);write(a[i]:5);if j mod 10=0 then writeln; end; end.格式：一行十个，你可以自己改，还有数组的大小。不懂可以加我Q。我也是OIER.

采纳哦