J2ME游戏开发中的经典算法 - 快速排序算法

J2ME游戏开发中的经典算法之快速排序算法。

 

program kuaisu(input,output); 　　const n=10; 　　var 　　s:array[1..10] of integer; 　　k,l,m:integer; 　　procedure qsort(lx,rx:integer); 　　var 　　I,j,t:integer; 　　Begin 　　I:lx;j:rx;t:s[I]; 　　Repeat 　　While (s[j]>t) and (j>I) do 　　Begin 　　k:=k+1; 　　j:=j-1 　　end; 　　if I  　　begin 　　s[I]:=s[j];I:=I+1;l:=l+1; 　　while (s[I]  　　begin 　　k:=k+1; 　　I:=I+1 　　End; 　　If I  　　begin 　　S[j]:=s[I];j:=j-1;l:=l+1; 　　End; 　　End; 　　Until I=j; 　　S[I]:=t;I:=I+1;j:=j-1;l:=l+1; 　　If lx  　　If I  　　End;{过程qsort结束} 　　Begin 　　Writeln('input 10 integer num:'); 　　For m:=1 to n do read(s[m]); 　　K:=0;l:=0; 　　Qsort(l,n); 　　Writeln('排序后结果是：'); 　　For m:=1 to n do write(s[m]:4) 　　End.