传话

[问题描述]

兴趣小组的同学来自各个学校，为了增加友谊，晚会上又进行了一个传话游戏，如果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

解题思路

这个题的数据规模不是很大，一看就是先建立图，连单向边，然后深搜就可以了，tarjan然并卵

代码

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