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的左孩子//
..