传话

[问题描述]

兴趣小组的同学来自各个学校,为了增加友谊,晚会上又进行了一个传话游戏,如果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
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值