Description
已知一棵二叉树用邻接表结构存储，中序查找二叉树中值为x的结点，并指出是第几个结点
Input
第一行为二叉树的结点个数，n<=100;第二行x表示要查找的结点的值；以下第一列数值是各结点的值，第二列数据是左儿子结点编号，第二列数是右儿子结点编号
Output
输出一个数即查找的结点编号
Sample Input
15
5 2 3
12 4 5
10 0 0
29 0 0
15 6 7
8 0 0
23 0 0
Sample Output
先根据读入数据构建一个二叉树，然后边寻找边进行统计，最后输出统计出的那个值即可。
程序：
type
tree=^node;
node=record
data:longint;
lchild,rchild:tree;
end;
const
maxn=100;
var
n,i,k,ans:longint;
a:array[1..maxn,1..3] of longint;
bt:tree;
procedure build(var bt:tree;x:longint);
begin
if x=0 then
begin
bt:=nil;
exit;
end;
new(bt);
bt^.data:=a[x,1];
build(bt^.lchild,a[x,2]);
build(bt^.rchild,a[x,3]);
end;
procedure print(bt:tree);
begin
if bt=nil then exit;
print(bt^.lchild);
inc(ans);
if bt^.data=k then
begin
writeln(ans);
halt;
end;
print(bt^.rchild);
end;
begin
readln(n);
readln(k);
for i:=1 to n do
readln(a[i,1],a[i,2],a[i,3]);
build(bt,1);
print(bt);
end.
版权属于: Chris
原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0mu.html
转载时必须以链接形式注明原始出处及本声明。
