【正文】
[ if (jm) and (r[j].keyr[j+1].key) then j:=j+1。] else j := m+1。 end。 i:=j。 j := 2*i。] end。 beginfor i := n div 2 downto 1 do call sift(r , i , n)。 write(n)。 call visit(lev+1。 root↑.right = nil: call visit(lev+1。4.l 鎖原語的原定義:Lock(w):L:if w = 1 then goto L else w :=1 Unlock(w): w:=0l 用SWAP指令實(shí)現(xiàn)的鎖原語:Lock(w): key:=1; repeat swap(w,key) until key=0;Unlock(w) key:=0; swap(w,key);四. 算法設(shè)計(jì)1. 設(shè)全局變量n存放當(dāng)前樹的最大深度,則程序?yàn)椋簆rocedure visit(lev:integer;ro