lyh2006 發表于 2010-08-13 23:51
Re:Procedure QuickSort(Var R :FileType; S,T: Integer); //對R[S..T]快速排序//
Begin
  If S < T Then //當R[S..T]為空或只有一個元素是無需排序//
    begin
      Partion(R, S, T, I); //對R[S..T]做劃分//
..