lyh2006 發(fā)表于 2010-08-13 23:32
Re:Procedure Parttion(Var R : FileType; L, H : Integer; Var I : Integer);
//對無序區(qū)R[1,H]做劃分，I給以出本次劃分后已被定位的基準(zhǔn)元素的位置 //
Begin
  I := 1; J := H; X := R ;//初始化，X為基準(zhǔn)//
  Re..