传话

[问题描述]

兴趣小组的同学来自各个学校，为了增加友谊，晚会上又进行了一个传话游戏，如果a认识b，那么a收到某个消息，就会把这个消息传给b，以及所有a认识的人。
如果a认识b，b不一定认识a。
所有人从1到n编号，给出所有“认识”关系，问如果i发布一条新消息，那么会不会经过若干次传话后，这个消息传回给了i，1<=i<=n。
[输入文件]
输入文件message.in中的第一行是两个数n(n<1000)和m(m<10000)，两数之间有一个空格，表示人数和认识关系数。
接下来的m行，每行两个数a和b，表示a认识b。1<=a, b<=n。认识关系可能会重复给出，但一行的两个数不会相同。
[输出文件]
输出文件message.out中一共有n行，每行一个字符T或F。第i行如果是T，表示i发出一条新消息会传回给i；如果是F，表示i发出一条新消息不会传回给i。
[输入样例]
4 6
1 2
2 3
4 1
3 1
1 3
2 3
[输出样例]
T
T
T
F

解题思路

代码

type
point=^rec;
rec=record
e:longint;
s:point;
end;
var n,m,a,b,i,j:longint;
dot:array[1..1000]of point;
v:array[1..1000]of boolean;
p:point;
flag:boolean;

function dfs(s,t:integer):boolean;
var p:point;
begin
v[s]:=false;
p:=dot[s];
while (p<>nil) do
begin
if p^.e=t then begin flag:=true;exit;end
else
if (v[p^.e]) then dfs(p^.e,t);
p:=p^.s;
end;
exit(flag);
end;

begin

readln(n,m);
for i:=1 to m do
begin
readln(a,b);
new(p);
p^.e:=b;
p^.s:=dot[a];
dot[a]:=p;
end;
for i:=1 to n do
begin
for j:=1 to n do v[j]:=true;
flag:=false;
if dfs(i,i) then writeln('T')
else writeln('F');
end;

end.

测试点1 Accepted / 0ms / 300kB
测试点2 Accepted / 0ms / 268kB
测试点3 Accepted / 0ms / 300kB
测试点4 Accepted / 7ms / 300kB
测试点5 Accepted / 25ms / 332kB
测试点6 Accepted / 81ms / 396kB
测试点7 Accepted / 38ms / 364kB
测试点8 Accepted / 55ms / 364kB
测试点9 Accepted / 6ms / 300kB
测试点10 Accepted / 0ms / 300kB