传话

[问题描述]

兴趣小组的同学来自各个学校，为了增加友谊，晚会上又进行了一个传话游戏，如果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 61 22 34 13 11 32 3[输出样例]TTTF

解题思路

这个题的数据规模不是很大，一看就是先建立图，连单向边，然后深搜就可以了，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