POJ1330 Nearest Common Ancestors 非lca pascal 解题报告

题目大意：在T组数据中（T不知道有多大，题目没有写），每组数据的先给出一个N（2<=N<=10000），之后再数据中N-1行为边的信息，每组数据的第N行给出一个询问，然后输出他们的最小公共祖先。

一开始打算直接用lca做的，但是对比一下lca和暴力的空间和时间，感觉还是有那么一点点的差距，所以就没用lca，直接暴力。其实思路很简单，对于每一对连通信息X Y，我们用一个数组将y的父节点设为x就可以了，读入询问之后，先对其中一个进行一次遍历，其中用一个布尔数组进行标记，直到父节点为空为止，再把剩下的扫一次，如果碰到一个点为true就输出那个点。这种方法只适合用于数据比较小和询问不多的题，其他还是老老实实的用lca吧。

代码：

var
a:array[1..10000] of integer;
i,j,n,t,x,y,k:integer;
b:array[1..10000] of boolean;
begin
readln(t);
for i:=1 to t do
begin
fillchar(a,sizeof(a),0);
readln(n);
for j:=1 to n-1 do
begin
readln(x,y);
a[y]:=x; //存储父节点
end;
readln(x,y);
fillchar(b,sizeof(b),false);
b[x]:=true;
repeat
k:=x;
b[k]:=true;
x:=a[k];
until x=0; //遍历
repeat
k:=y;
if b[k] then begin writeln(k); break; end else b[k]:=true; //查找
y:=a[k];
until y=0;
end;
end.