关闭

26886: 树的路径

77人阅读 评论(0) 收藏 举报
分类:
题目描述
给定一棵二叉树和两个不同的节点,求出他们到最近的公共祖先父节点的路径。已知该二叉树有n个节点,标号1..n。(n<100)
输入
输入:
第一行两个整数x,y,表示需要求的节点;
以下若干行,每行两个整数a和b,表示a的父节点是b。
输出
X到y的路径。
样例输入
9 7
2 1
3 2
4 2
5 3
8 5
9 5
6 4
7 4

样例输出
9 5 3 2 4 7 

program x26886;
const maxn=100;
var father,a,b:array[1..maxn] of integer;
x,y,root:integer;

procedure init;
var a,b:integer;
begin
 readln(x,y);
 while not eof do
 begin
  readln(a,b);
  father[a]:=b;
 end;
end;

procedure findroot;
var i,j:integer;
begin
 i:=x;
 while i<>0 do
 begin
  a[i]:=1;
  i:=father[i];
 end;
 j:=y;
 while a[j]<>1 do
 j:=father[j];
 root:=j;
end;

procedure finda(i:integer);
begin
 if i<>root then
 begin
  write(i,' ');
  finda(father[i]);
 end;
end;

procedure findb(i:integer);
begin
 if i<>root then
 begin
  findb(father[i]);
  write(i,' ');
 end;
end;

begin
 init;
 findroot;
 finda(x);
 write(root,' ');
 findb(y);
end.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:14974次
    • 积分:107
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档