数据�l�构�W�六章填�I�题及答案[14]_跨考网

         1�Q�下面��用类pascal语言写的对二叉树�q�行操作的算法，请仔�l�阅�?/span>

　　TYPE pointer=^tnodetp;

　　tnodetp=RECORD data: char; llink,rlink: pointer�Q?/span>END;

　　linkstack=^linknodet;

　　linknodet=RECORD data:pointer�Q?/span> next;linkstack�Q?/span>END;

　　PROC unknown (VAR t:pointer);

　　VAR p,temp�Q?/span>pointer;

　　BEGIN p:=t;

　　IF p<> NIL THEN

　　[temp:=p^.llink �Q?/span>p^.llink:=p^.rlink;�Q?/span>p^.rlink:=temp;

　　unknown(p^.llink); unknown(p^.rlink); ]

　　END;

　　�?/span> 指出该算法完成了什么功�?/span>

　　�?/span> 用栈���以上算法改为非递归���法unknown1,其中有若�q�语句或条�g�I�缺请在�I�缺处填写上适当的语句或条�g

　　PROC inistack(VAR s:linkstack);

　　(1)_______; s^.next:=NIL;

　　ENDP;

　　FUNC empty (s:linkstack):boolean;

　　IF (2)_______THEN empty:=true ELSE empty:=false;

　　ENDF;

　　FUNC gettop(s:linkstack):pointer;

　　gettop:= (3)_______;

　　ENDF;

　　FUNC pop(VAR s:linkstack)�Q?/span>pointer;

　　VAR p:linkstack;

　　pop:=s^.next^.data; p:=s^.next; (4)_______�Q?/span>(5)_______;

　　ENDF;

　　PROC push (VAR s:linkstack;x:pointer);

　　VAR p:linkstack;

　　new(p); p^.data:=x; (6)_______; s^.next:=p;

　　ENDP;

　　PROC unknown1(VAR t:pointer);

　　VAR p,temp: pointer; finish: boolean;

　　BEGIN

　　inistack(s); finish:=false; p:=t;

　　REPEAT

　　WHILE p<> NIL DO

　　[temp:=p^.llink; p^.llink:=p^.rlink; p^.rlink:=temp;

　　(7)_______; p:=p^.llink; ];

　　IF (8)____THEN [p:=gettop(s);temp;=pop(s);] ELSE (9)_______

　　UNTIL (10)___

ENDP; 【北方交通大�?/span> 2000 三�?/span> (25�?/span>)�?/span>

【参考答案�?/span>

　　�?/span> 本算法将二叉树的左右子树交换

　　�?/span> (1)new (s) //初始化，甌����l�点 (2) s^.next=NIL　 //s是带头结点的链栈

　　(3)s^.next^.data　//取栈��元�?/span> (4)s^.next:= p^.next //栈顶指针下移

　　(5)dispose(p)　　 //回收�I�间 (6)p^.next:=s^.next　　//���新�l�点入链�?/span>

　　(7)push(s,p^.rchild) //先沿树的左分支向下，��?/span>p的右子女入栈保存

　　(8)NOT empty(s) (9) finishe:=true //已完�?/span> (10)finish=true �Q�或s^.next=NIL�Q?/span>

　　2�Q�具�?/span>n个结点的完全二叉树，已经��序存储在一�l�数�l?/span>A[1..n]中，下面���法是将A中顺序存储变��Z��叉链表存储的完全二叉树。请填入适当的语句在下面�?/span>_______上，完成上述���法�?/span>

　　TYPE ar=ARRAY[1..n] OF datatype;

　　pointer=RECORD data:datatype; lchild, rchild: pointer; END;

　　PROCEDURE btree(VAR a: ar; VAR p:pointer);

　　VAR i:integer;

　　PROCEDURE createtree(VAR t: pointer;i: integer)

　　BEGIN (1)_______; t^.data=a[i];

　　IF(2)_____THEN creattree((3)_______) ELSE t^.lchild:=NIL;

　　IF(4)_____THEN createtree((5)_______) ELSE t^.rchild:=NIL;

　　END;

　　BEGIN

　　j:= (6)__; createtree(p,j)

　　END; �?a target="_blank">北京邮电(sh��)大学 1998 五�?/span> (15�?/span>)�?/span>

　　【参考答案�?/span>

　　(1)new(t) (2)2*i�?/span>n　 (3)t^.lchild,2*i (4)2*i+1�?/span>n (5)t^.rchild,2*i+1 (6)1