lyh2006 發表于 2010-08-13 23:47
Re:Procedure Sift(Var R :FileType; I, M : Integer);
//在數組R[I..M]中調用R，使得以它為完全二叉樹構成堆。事先已知其左、右子樹(2I+1 <=M時)均是堆//
Begin
  X := R; J := 2*I; //若J <=M, R[J]是R的左孩子//
..