lyh2006 发表于 2010-08-13 23:32
Re:Procedure Parttion(Var R : FileType; L, H : Integer; Var I : Integer);
//对无序区R[1,H]做划分，I给以出本次划分后已被定位的基准元素的位置 //
Begin
  I := 1; J := H; X := R ;//初始化，X为基准//
  Re..