刻录光盘（图论算法）

Description

在PJOI2010夏令营快要结束的时候，很多营员提出来要把整个夏令营期间的资料刻录成一张光盘给大家，以便大家回去后继续学习。组委会觉得这个主意不错！可是组委会一时没有足够的空光盘，没法保证每个人都能拿到刻录上资料的光盘，又来不及去买了，怎么办呢？ 

组委会把这个难题交给了DYJ，DYJ分析了一下所有营员的地域关系，发现有些营员是一个城市的，其实他们只需要一张就可以了，因为一个人呢拿到光盘以后，其他人可以拿着U盘之类的东西去拷贝啊！ 

可是DYJ调查后发现，有些营员并不是那么合作，他们愿意某一些人到他那儿拷贝资料，当然也可能不愿意让另外一些人到他那儿拷贝资料，这与我们PJOI宣扬的团队合作精神格格不入！ 

现在假设总共有N个营员（2<=N<=200）,每个营员的编号为1~N。DJY给每个人发了一张调查表，让每个营员填上自己愿意让哪些人到他那儿拷贝资料。当然，如果A愿意把资料拷贝给B，而B又愿意把资料拷贝给C，则一旦A获得了资料，则B、C也会获得资料。 

现在请你编写一个程序，根据回收上来的调查表，帮助DZY计算出组委会至少要刻录多少张光盘，才能保证所有营员回去后都能得到夏令营资料？

Input

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

Output

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

Sample Input

 

5 

2 4 3 0 

4 5 0 

0 

0 

1 0

 

Sample Output

 

1

解题思路：先读入数据，建立邻接表，然后对它进行遍历，统计有哪些入度为0的点，然后再进行一次遍历，同样统计，最后输出统计的结果即可。

程序：

const

  maxn=1000;

var

  a:array[0..maxn,0..maxn]of longint;

  num:array[0..maxn]of longint;

  v,f:array[0..maxn]of boolean;

  n,i,ans,x:longint;

procedure dfs(x:longint);

  var

    i:longint;

  begin

    v[x]:=true;

    for i:=1 to num[x] do

      if v[a[x,i]]=false then dfs(a[x,i]);

end;

begin

  fillchar(num,sizeof(num),0);

  fillchar(v,sizeof(v),false);

  readln(n);

  for i:=1 to n do

    begin

      repeat

        read(x);

        if x=0 then break;

        inc(num[i]);

        a[i,num[i]]:=x;

        f[x]:=true;

      until x=0;

      readln;

    end;

  for i:=1 to n do

    if f[i]=false then begin inc(ans); dfs(i); end;

  for i:=1 to n do

    if v[i]=false then begin inc(ans); dfs(i); end;

  writeln(ans);

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v32s.html

转载时必须以链接形式注明原始出处及本声明。