鏁版嵁緇撴瀯絎叚绔犲～絀洪鍙?qiáng)绛旀[11]_璺ㄨ€冪綉

1錛庝笅闈㈢殑綾?/span>PASCAL璇█閫掑綊綆楁硶鐨勫姛鑳芥槸鍒ゆ柇涓€媯典簩鍙夋爲(wèi)錛堥噰鐢ㄤ簩鍙夐摼琛ㄥ瓨璐粨鏋勶級鏄惁涓哄畬鍏ㄤ簩鍙夋爲(wèi)銆傝鎶婄┖緙虹殑涓ら儴鍒嗚ˉ鍐欏畬鏁淬€傦紙鎻愮ず錛氬埄鐢ㄥ畬鍏ㄤ簩鍙夋爲(wèi)緇撶偣搴忓彿鎬ц川錛?/span>

銆€銆€TYPE link=^node;

銆€銆€node=RECORD key:keytype; l,r:link; END;

銆€銆€VAR all:boolean; n:integer; root:link;

銆€銆€FUNC num(t:link):integer;

銆€銆€BEGIN (1)______END;

銆€銆€PROC chk(t:link;m{t 鎵€鎸囩粨鐐瑰簲鏈夊簭鍙?/span>}:integer)

銆€銆€BEGIN (2)_______END;

銆€銆€BEGIN {寤轟簩鍙夋爲(wèi)錛屽叾鏍圭敱root鎸囧嚭 }

銆€銆€n:=num(root);{姹傜粨鐐規(guī)暟} all:=true; chk(root,1);

銆€銆€IF all THEN writeln錛堚€樿鏍?wèi)湄?fù)瀹屽叏浜屽弶鏍?wèi)锛佲€欙級ELSE writeln 錛堚€欒鏍?wèi)闈炲畬鍏ㄤ簩鍙夋爲(wèi)锛佲€欙級

銆€銆€END錛?/span> 銆?a target="_blank">鍖椾含宸ヤ笟澶у 1997 浜屻€?/span>2 (10鍒?/span>)銆?/span>

銆€銆€銆愬弬鑰冪瓟妗堛€?/span>

銆€銆€(1) IF t=NIL THEN num:=0 ELSE num:=num(t^.l)+num(t^.r)+1

銆€銆€(2) IF (t=NIL) AND (m鈮?/span>n) OR (t<>NIL) AND (m>n) THEN all:=false

銆€銆€ELSE BEGIN chk(t^.l,2*m);chk (t^.r,2*m+1);END

銆€銆€

銆€銆€2錛庡皢浜屽弶鏍?/span>bt涓瘡涓€涓粨鐐圭殑宸﹀彸瀛愭爲(wèi)浜掓崲鐨?/span>C璇█綆楁硶濡備笅錛屽叾涓?/span>ADDQ(Q,bt),DELQ(Q),EMPTY(Q)鍒嗗埆涓鴻繘闃燂紝鍑洪槦鍜屽垽鍒槦鍒楁槸鍚︿負(fù)絀虹殑鍑芥暟錛岃濉啓綆楁硶涓緱絀虹櫧澶勶紝瀹屾垚鍏跺姛鑳姐€?/span>

銆€銆€typedef struct node

銆€銆€{int data ; struct node *lchild, *rchild; }btnode;

銆€銆€void EXCHANGE(btnode *bt)

銆€銆€{btnode *p, *q;

銆€銆€if (bt){ADDQ(Q,bt);

銆€銆€while(!EMPTY(Q))

銆€銆€{p=DELQ(Q); q=(1)___; p->rchild=(2)___; (3)___=q;

銆€銆€if(p->lchild) (4)___; if(p->rchild) (5)___;

銆€銆€}

銆€銆€} }//銆?a target="_blank">鍖椾含縐戞妧澶у 2000 浜屻€?/span>(10鍒?/span>)銆?/span>

銆€銆€銆愬弬鑰冪瓟妗堛€?/span>

銆€銆€(1)p->rchild (2)p->lchild (3)p->lchild (4)ADDQ(Q,p->lchild) (5)ADDQ(Q,p->rchild)