这题只能对每一个点查一遍……
有向图的话能用floyd,可是迫于时限用了SPFA。
Program aa;
const
maxk=10000;
maxn=10000;
maxm=10000;
var
k,n,m,i,j,l:longint;
a:array[1..maxk] of longint;
q:array[1..maxn] of longint;
edge,next,head:array[1..maxm] of longint;
size:longint;
res,num,b:array[1..maxn] of boolean;
procedure add(u,v:longint);
begin
inc(size);
edge[size]:=v;
next[size]:=head[u];
head[u]:=size;
end;
procedure spfa;
var
i,j,p,now,v:longint;
begin
i:=1;j:=1;
while (i<=j) do
begin
now:=q[i];
p:=head[now];
while p<>0 do
begin
v:=edge[p];
if not(b[v]) then
begin
b[v]:=true;
inc(j);
q[j]:=v;
end;
p:=next[p];
end;
inc(i);
end;
for i:=1 to n do
res[i]:=res[i] and b[i];
end;
begin
size:=0;
fillchar(head,sizeof(head),0);
fillchar(edge,sizeof(edge),0);
fillchar(next,sizeof(next),0);
fillchar(b,sizeof(b),false);
fillchar(res,sizeof(res),true);
fillchar(num,sizeof(num),false);
read(k,n,m);
for i:=1 to k do read(a[i]);
for i:=1 to m do
begin
read(j,l);
add(j,l);
end;
for i:=1 to k do
if not(num[a[i]]) then
begin
num[a[i]]:=true;
q[1]:=a[i];
fillchar(b,sizeof(b),false);
b[q[1]]:=true;
spfa;
end;
l:=0;
for i:=1 to n do if res[i] then inc(l);
writeln(l);
end.
分享到:
相关推荐
POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类
poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题...
POJ第1861题源码 POJ第1861题源码 POJ第1861题源码
北大POJ1159-Palindrome 解题报告+AC代码
C语言 poj npu 西工大 C语言Poj答案全完整打包,给有需要的朋友
poj 3414解题报告poj 3414解题报告poj 3414解题报告poj 3414解题报告
北大POJ2002-Squares 解题报告+AC代码
poj分类poj分类poj分类poj分类
POJ1048,加强版的约瑟夫问题 难度中等
POJ1503解答 POJ1503解答,正确答案(已通过POJ)
poj 1012解题报告poj 1012解题报告poj 1012解题报告poj 1012解题报告
poj 2329解题报告poj 2329解题报告poj 2329解题报告poj 2329解题报告
poj 1659解题报告poj 1659解题报告poj 1659解题报告poj 1659解题报告
POJ1083的代码,POJ1083的代码,POJ1083的代码
poj 百练 题目分类 poj 百练 题目分类
Poj中一些题目的源代码,里面共有二十多道题目,OI
POJ上的一道题目,自己写的代码,因为想下载别人的, 所以就放上了。
解决算法问题 poj1082, poj1150, poj1180, poj1201, poj1222,代码完成所给题目要求。
POJ2968代码有用,欢迎下载,POJ代码
北大POJ3253-POJ3253-Fence Repair【STL优先队列】 解题报告+AC代码