vijos1101题解

题目:

研究表明,这种传染病的传播具有两种很特殊的性质;
第一是它的传播途径是树型的,一个人X只可能被某个特定的人Y感染,只要Y不
得病,或者是XY之间的传播途径被切断,则X就不会得病。

第二是,这种疾病的传播有周期性,在一个疾病传播周期之内,传染病将只会感染一
代患者,而不会再传播给下一代。

这些性质大大减轻了蓬莱国疾病防控的压力,并且他们已经得到了国内部分易感人群
的潜在传播途径图(一棵树)。但是,麻烦还没有结束。由于蓬莱国疾控中心人手不够,同时也缺乏强大的技术,以致他们在一个疾病传播周期内,只能设法切断一条传播途径,而没有被控制的传播途径就会引起更多的易感人群被感染(也就是与当前已经被感染的人有传播途径相连,且连接途径没有被切断的人群)。当不可能有健康人被感染时,疾病就中止传播。所以,蓬莱国疾控中心要制定出一个切断传播途径的顺序,以使尽量少的人被感染。你的程序要针对给定的树,找出合适的切断顺序。


这是提高组题目,记得我刚做的时候调了好几遍呢!DFS吧,加点小贪心。 

type arr=array[0..300] of integer;
var
  tr:array[1..300] of arr;
  min,n,m,a,b,t,i:longint;

procedure go(h:longint;f:arr);
var
  temp:arr;
  i,j,k:longint;
begin
  if f[0]=0 then
    begin
      if min>h then min:=h;
      exit;
    end;
  for i:=1 to f[0] do
    begin
      fillchar(temp,sizeof(temp),0);
      for j:=1 to f[0] do
        if j<>i then
          begin
            for k:=1 totr[f[j],0] do
              begin
               inc(temp[0]);
               temp[temp[0]]:=tr[f[j],k];
              end;
          end;
      if h+f[0]-1<=min thengo(h+f[0]-1,temp);
    end;
end;
begin
  min:=maxlongint;
  readln(n,m);
  for i:=1 to m do
    begin
      readln(a,b);
      if a>b then
        begin
          t:=a;
          a:=b;
          b:=t;
       end;
      inc(tr[a,0]);
      tr[a,tr[a,0]]:=b;
    end;
  go(1,tr[1]);
  writeln(min);
end.

你可能感兴趣的:(vijos题解)