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.