计算机 - 话题

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]做划分//
..