【CF659E】New Reform（图的联通，环）

分析转载自http://blog.csdn.net/yukizzz/article/details/51029628

题意：

给定n个点和m条双向边，将双向边改为单向边，问无法到达的顶点最少有多少个？

分析：

无法到达的话即入度为0。 
DFS判断每一个连通块中是否存在环，如果存在环，就能保证环中每个点的入度都大于等于1。否则，有头有尾，头的入度为0。

 var head,vet,next,flag:array[..]of longint;
     n,m,x,y,tmp,ans,tot,i:longint;

 procedure add(a,b:longint);
 begin
  inc(tot);
  next[tot]:=head[a];
  vet[tot]:=b;
  head[a]:=tot;
 end;

 procedure dfs(u,pre:longint);
 var e,v:longint;
 begin
  if flag[u]= then begin tmp:=; exit; end;
  flag[u]:=;
  e:=head[u];
  while e<> do
  begin
   v:=vet[e];
   if v<>pre then dfs(v,u);
   e:=next[e];
  end;
 end;

 begin
 // assign(input,'1.in'); reset(input);
  //assign(output,'1.out'); rewrite(output);
  readln(n,m);
  for i:= to m do
  begin
   read(x,y);
   add(x,y);
   add(y,x);
  end;
  for i:= to n do
   if flag[i]= then
   begin
    tmp:=;
    dfs(i,);
    ans:=ans+tmp;
   end;
  writeln(ans);
 // close(input);
  //close(output);
 end.