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..