问一个pascal问题

问题描述：

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

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

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

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

输入：

输入文件的第一行包含两个用空格隔开的整数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的费用。最后一行依次表示所有用户为观看比赛而准备支付的钱数。

输出：

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

样例输入：

5 3
2 2 2 5 3
2 3 2 4 3
3 4 2

样例输出

2
必须贴程序，说程序以外话的可以检举，管理员KO下谢谢啊

树型dp！
设f[a,m]为a结点下支持m个用户所能得到最大赢利

f[a,m]=max{f[b1,m1]+f[b2,m2]+...+f[bk,mk]}
bi是a的子结点，m1+m2+...+mk=m，这里用双重dp！

或者考虑转化成二叉树。

==============
#include<iostream>
using namespace std;
int i,j,k,ans1,n,m;
int ans[4000][4000];
long a[4000];
long son[4000][4000][2];
long g[4000];

int max(int p,int q){
if (p>q) return p;
else return q;
}

int min(int p,int q){
if (p>q) return q;
else return p;
}

int dg(int p){
int l,q,t,tt;
if (p>n-m) {
ans[p][1]=a[p];
g[p]=1;
}
else {
for (l=1;l<=son[p][0][1];l++){
dg(son[p][l][1]);
g[p]=g[p]+g[son[p][l][1]];
}
for (t=1;t<=son[p][0][1];t++){
tt=son[p][t][1];
for (l=g[p];l>=1;l--){