随便搜都能过....

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

简单啊~~~~

先找入度=0的~~~在找其余的就OK了~~

program york;

var n,m,i,j,x:longint;

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

p,p0:array[0..200]of boolean;

procedure find(k:longint);

var i:longint;

begin

for i:=1 to a[k,0] do if p0[a[k,i]]=false then begin p0[a[k,i]]:=true; find(a[k,i]); end;

end;

begin

fillchar(p,sizeof(p),false);

fillchar(p0,sizeof(p0),false);

m:=0;

readln(n);

for i:=1 to n do

begin

read(x); a:=0;

while x0 do begin inc(a); a[i,a]:=x; p[x]:=true; read(x); end;

end;

for i:=1 to n do if p[i]=false then

begin

p0[i]:=true; inc(m);

find(i);

end;

for i:=1 to n do if p0[i]=false then

begin

p0[i]:=true; inc(m);

find(i);

end;

writeln(m);

end.

p1022 和 p1023用同一个程序便可通过。

缩点然后输出入度0的点数

此题样例是不是错了,应该是11人才对.

var i,j,n,m,num,color:longint;

a:array[1..200,1..200] of longint;

f:array[1..200] of integer;

procedure dfs(i:longint);

var J:longint;

begin

f[i]:=1;

for J:=1 to n do

if (f[j]=0)and(a0) then dfs(j)

end;

begin

readln(n);

fillchar(a,sizeof(a),0);

fillchar(f,sizeof(f),0);

color:=0;

for i:=1 to n do

begin

read(num);

while num0 do

begin

a:=1;

read(num)

end

end;

for i:=1 to n do

begin

if f[i]=0 then inc(color);

dfs(i)

end;

writeln(color)

end.

很弱的一道题！相信大家多会，这里献丑了！！！

图的dfs就搞定了，10分钟编完，一次ac

怎么和Ｐ１０２２一模一样！！！！！

没见过这么简单的难度３的题，一个深度搜索搞定，总程序还不够５０行

我用BFS过的；

第一次做时用并查集，结果30分，估计要用并查集AC比较烦（可能我的并查集有严重错误）；

于是用BFS；

思路与最下面的“永恒の灵魂”的一样；

时间复杂度最坏为O(n^2)；

由于是BFS，不必担心空间。

可以用DFS，但也好想可以用并查集

搞什么啊

我把1022的程序一个字没改提交了居然ac了

bye

自己一开始不分析就搜了 然后TIME OVER

解题贵在分析 题目中要求最小值

就是求最多的两人可以相互传达值

那就只要DFS下去

if pathandpath[j,i]then inc(t)

所求为 n-t

晕。。。

p1022的程序，一点没改，就过了。。。。

汗!!!~~~~~~~~~~~~~

1022的程序啊~~~~~

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

我郁闷 我用1022的程序过的 一点没改~~~

真的

数据很烂...

数据太烂了