洛谷 P1273 有线电视网

题目描述

某收费有线电视网计划转播一场重要的足球比赛。他们的转播网和用户终端构成一棵树状结构，这棵树的根结点位于足球比赛的现场，树叶为各个用户终端，其他中转站为该树的内部节点。

从转播站到转播站以及从转播站到所有用户终端的信号传输费用都是已知的，一场转播的总费用等于传输信号的费用总和。

现在每个用户都准备了一笔费用想观看这场精彩的足球比赛，有线电视网有权决定给哪些用户提供信号而不给哪些用户提供信号。

写一个程序找出一个方案使得有线电视网在不亏本的情况下使观看转播的用户尽可能多。

输入输出格式

输入格式：
输入文件的第一行包含两个用空格隔开的整数N和M，其中2≤N≤3000，1≤M≤N-1，N为整个有线电视网的结点总数，M为用户终端的数量。

第一个转播站即树的根结点编号为1，其他的转播站编号为2到N-M，用户终端编号为N-M+1到N。

接下来的N-M行每行表示—个转播站的数据，第i+1行表示第i个转播站的数据，其格式如下：

K A1 C1 A2 C2 … Ak Ck

K表示该转播站下接K个结点(转播站或用户)，每个结点对应一对整数A与C，A表示结点编号，C表示从当前转播站传输信号到结点A的费用。最后一行依次表示所有用户为观看比赛而准备支付的钱数。

输出格式：
输出文件仅一行，包含一个整数，表示上述问题所要求的最大用户数。

输入输出样例

输入样例#1：
5 3
2 2 2 5 3
2 3 2 4 3
3 4 2
输出样例#1：
2
说明

样例解释

如图所示，共有五个结点。结点①为根结点，即现场直播站，②为一个中转站，③④⑤为用户端，共M个，编号从N-M+1到N，他们为观看比赛分别准备的钱数为3、4、2，从结点①可以传送信号到结点②，费用为2，也可以传送信号到结点⑤，费用为3（第二行数据所示），从结点②可以传输信号到结点③，费用为2。也可传输信号到结点④，费用为3（第三行数据所示），如果要让所有用户（③④⑤）都能看上比赛，则信号传输的总费用为：

2+3+2+3=10，大于用户愿意支付的总费用3+4+2=9，有线电视网就亏本了，而只让③④两个用户看比赛就不亏本了。

分析：
确实比较像背包问题 只不过换成树状的了（表示之前没做过）

物品是用户

dp[i][j]表示i节点 在它的后代中选了j个的最大收入

dp[i][j]=max(dp[i][j],dp[i][j-k]+dp[v][k]-w)

意思是在当前儿子中选了k个用户 并减去和儿子中间那一条边的权值

儿子就一个一个搜啦= =

注意k的范围是在1至儿子后代中的用户数

并且j是要从大到小循环

所以递归函数要传回节点的用户数

存边什么的就邻接表搞一搞就好啦 存单向就行

另外dp[n][0]都等于0；（找了十分钟才找出来这个错）

最后输出答案就从大往小找收入大于等于0的点

代码：

const
 maxe=3001;

type
  node=record
   y,w,next:longint;
  end;

var
 g:array [1..3001] of node;
 ls,w,v:array [1..3001] of longint;
 f:array [1..3001,0..3001] of longint;
 n,m,j,q,k,i,ey,ew,e:longint;

function max(x,y:longint):longint;
 begin
  if x>y then exit(x)
         else exit(y);
 end;

procedure init;
begin
 readln(n,m);
 for i:=1 to n do
 for j:=1 to n do
   f[i,j]:=-maxlongint div 2;
 for i:=1 to n-m do
  begin
   read(k);
    for j:=1 to k do
     begin
      read(ey,ew);
      inc(e);
      with g[e] do
       begin
        y:=ey;
        w:=ew;
        next:=ls[i];
        ls[i]:=e;
       end;
     end;
   f[i,0]:=0;
  end;
 for i:=n-m+1 to n do read(v[i]);
end;

function dp(x:longint):longint;
 var i,t,sum,q:longint;
begin
 if x>n-m then
  begin
   f[x,1]:=v[x];
   exit(1);
  end;
 sum:=0;
 t:=ls[x];
 while t<>0 do
  begin
   with g[t] do
    begin
     q:=dp(y);
     inc(sum,q);
     for j:=sum downto 0 do
      for k:=1 to q do
       begin
        if k>j then break;
        f[x,j]:=max(f[x,j],f[x,j-k]+f[y,k]-w);
       end;
     t:=next;
    end;
  end;
 exit(sum);
end;

begin
 init;
 dp(1);
 for i:=m downto 1 do
  if f[1,i]>=0 then break;
 writeln(i);
end.