刻录光盘

刻录光盘

时间限制: 1 Sec 内存限制: 128 MB

题目描述

在信息学夏令营快要结束的时候,很多营员提出来要把期间的资料刻录成一张光盘给大家，以便大家回去后继续学习。组委会觉得这个主意不错。可组委会一时没有足够的空光盘，没法保证每个人都能拿到刻录上资料的光盘，怎么办呢？
DYJ分析了一下所有营员的地域关系，发现有些营员是一个城市的，其实他们只需要一张就可以了，因为一个人拿到光盘后，其他人可以带着U盘之类的东西去拷贝啊！可是，DYJ调查后发现，由于种种原因，有些营员并不是那么的合作，他们愿意某一些人到他那儿拷贝资料，当然也可能不愿意让另外一些人到他那儿拷贝资料，这与我们组委会宣扬的团队合作精神格格不入！！！

现在假设总共有N个营员（2<=N<=200），每个营员的编号为1~N。LHC给每个人发了一张调查表，让每个营员填上自己愿意让哪些人到他那儿拷贝资料。当然，如果A愿意把资料拷贝给B，而B又愿意把资料拷贝给C，则一旦A获得了资料，则B，C都会获得资料。
现在，请你编写一个程序，根据回收上来的调查表，帮助LHC计算出组委会至少要刻录多少张光盘，才能保证所有营员回去后都能得到夏令营资料？

输入

先是一个数N，接下来的N行，分别表示各个营员愿意把自己获得的资料拷贝给其他哪些营员。即输入数据的第i+1行表示第i个营员愿意把资料拷贝给那些营员的编号，以一个0结束。如果一个营员不愿意拷贝资料给任何人，则相应的行只有1个0，一行中的若干数之间用一个空格隔开。

输出

一个正整数，表示最少要刻录的光盘数。

样例输入

5
2 4 3 0
4 5 0
0
0
1 0

样例输出

1

题解

• 正解应该是求强连通分量
• 但是数据范围小所以用Floyd也可以

Floyd

var
 w:array[0..200,0..200]of longint;
 father:array[0..200]of longint;
 i,j,k:longint;
 n,a,ans:longint;
begin
 readln(n);
 for i:=1 to n do
  for j:=1 to n do
   w[i,j]:=0;
 for i:=1 to n do
  begin
   read(a);
   while a<>0 do
    begin
     w[i,a]:=1;
     read(a);
    end;
   readln;
  end;
 for k:=1 to n do
  for i:=1 to n do
   for j:=1 to n do
    if (w[i,k]=1)and(w[k,j]=1)
    then w[i,j]:=1;
 for i:=1 to n do
  father[i]:=i;
 for i:=1 to n do
  for j:=1 to n do
   if w[i,j]=1
   then father[j]:=father[i];
 for i:=1 to n do
  if father[i]=i
  then inc(ans);
 writeln(ans);
end.