Noip 2003T4 传染病控制

题目：

 传染病控制

来源：

 Noip 2003T4

题目大意：

 在一棵树中，每层任意砍掉一条边，使包含根结点的树的结点数最少。

数据范围：

 1≤n≤300

样例：

 7 6

 1 2

 1 3

 2 4

 2 5

 3 6

 3 7

3

做题思路：

 本以为是树型dp，结果写好多叉转二叉的树后发现不对，真耽误时间啊。

 正解是搜索。。。而且是无向图。。。

知识点：

 搜索

var a:array[0..400,0..400]of longint; time:array[0..400]of longint; n,i,x,y,ans,sum,m:longint;procedure build(k:longint);{<构造，减去自己和自己的边>}var i,j,t:longint;begin fori:=1 to a[k,0] do  begin  t:=a[k,i];   forj:=1 to a[t,0] do    ifa[t,j]=k then break;  a[t,j]:=a[t,a[t,0]];  dec(a[t,0]);  build(t);  end;end;procedure dfs(k:longint);var i,j:longint; b:boolean;begin b:=false; ifsum>ans then exit; {<最优化剪枝>} fori:=1 to n do  iftime[i]=k then{<处理下一层的条件是传染到了这一层>}   forj:=1 to a[i,0] do   begin    inc(sum);    time[a[i,j]]:=k+1;     b:=true;   end; dec(sum); fori:=1 to n do{<选择一个边向下处理>}  iftime[i]=k+1 then  begin   time[i]:=0;   dfs(k+1);   time[i]:=k+1;   end; inc(sum); fori:=1 to n do{<回溯>}  iftime[i]=k+1 then  begin   time[i]:=0;   dec(sum);   end; if(not b)and(sum<ans) then ans:=sum;end;begin assign(input,'Epidemic.in');reset(input); assign(output,'Epidemic.out');rewrite(output); readln(n,m); fori:=1 to m do  begin  readln(x,y);  inc(a[x,0]); {<因为题目没说，所以指不定谁传染谁>}  a[x,a[x,0]]:=y;  inc(a[y,0]);  a[y,a[y,0]]:=x;  end; build(1); sum:=1;ans:=maxlongint; time[1]:=1; dfs(1); writeln(ans); close(input);close(output);end.

题目来源：http://yt.tyvj.cn:8080/Problem_Show.asp?id=1041