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

i表示当前的点，j表示用户的个数 f[i,j]的值即为以i为根的树中取j个用户的最优的值

program df;
type point=^node;
node=record
date,ends:longint;
next:point;
end;
var i,j,n,m,x,y,z,k,t:longint;
path:array[0..100000] of point;
c,e,g:array[0..100000] of longint;
a,d,f:array[0..3000,0..3000] of longint;

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

procedure com(x,y:longint);
var i:point;
begin
i:=path[x];
new(path[x]);
path[x]^.ends:=y;
path[x]^.next:=i;
end;

procedure dfs(x,z:longint);
var i:point;
j,y,u:longint;
begin
i:=path[x];
while i<>nil do
begin
y:=i^.ends;
for j:=0 to z do
f[y,j]:=f[x,j]; //将处理上一颗子树的值递给下一颗子树继续处理
dfs(y,z-g[y]);
for j:=1 to z do
f[x,j]:=max(f[x,j],f[y,j-g[y]]+c[y]); //是否取当前子树
i:=i^.next;
end;
end;

begin
readln(n,m);
for i:=1 to n-m do
begin
read(k);
for j:=1 to k do
begin
read(x,y);
c[x]:=-y; //处理当前x这一子树时所需费用
com(i,x);
end;
readln;
end;
for i:=1 to m do
f[1,i]:=-9999999;
for i:=n-m+1 to n do
begin
read(x);
c[i]:=c[i]+x; //处理当前i这一子树时的利润
g[i]:=1; //当前这点为用户
end;
dfs(1,m);
for i:=m downto 0 do
if f[1,i]>=0 then break;
writeln(i);
end.