[codevs1380]没有上司的舞会

本题地址

http://www.luogu.org/problem/show?pid=1352

http://codevs.cn/problem/1380/

题目描述

某大学有N个职员，编号为1~N。他们之间有从属关系，也就是说他们的关系就像一棵以校长为根的树，父结点就是子结点的直接上司。现在有个周年庆宴会，宴会每邀请来一个职员都会增加一定的快乐指数Ri，但是呢，如果某个职员的上司来参加舞会了，那么这个职员就无论如何也不肯来参加舞会了。所以，请你编程计算，邀请哪些职员可以使快乐指数最大，求最大的快乐指数。

输入输出格式

输入格式：

第一行一个整数N。(1<=N<=6000)
接下来N行，第i+1行表示i号职员的快乐指数Ri。(-128<=Ri<=127)
接下来N-1行，每行输入一对整数L,K。表示K是L的直接上司。
最后一行输入0 0

输出格式：

输出最大的快乐指数。

输入输出样例

输入样例#1：

7
1
1
1
1
1
1
1
1 3
2 3
6 4
7 4
4 5
3 5
0 0

输出样例#1：

5

思路

　　树型DP

var f:array[..,..] of longint;
//f[i,]表示以i为根的子树上司i不去时的最大价值；f[i,]表示以i为根的子树上司i去时的最大价值
    son:array[..,..] of longint;
//son[i,]表示i结点的儿子总数，son[i,j]表示结点i的第j个儿子
    a,fa:array[..] of longint;
    n,root:longint;

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

procedure work(x:longint);
var i:longint;
begin
    if son[x,]= then
        begin
            f[x,]:=a[x];
            exit;
        end;
    for i:= to son[x,] do
        work(son[x,i]);
    f[x,]:=a[x];
    for i:= to son[x,] do
        begin
            inc(f[x,],f[son[x,i],]);
            inc(f[x,],max(f[son[x,i],],f[son[x,i],]));//TIPS：当上司不去的时候员工可以去也可以不去
        end;
end;
//DP的过程

procedure init;
var i,x,y:longint;
begin
    readln(n);
    for i:= to n do readln(a[i]);
    for i:= to n- do
        begin
            readln(x,y);
            inc(son[y,]);
            son[y,son[y,]]:=x;
            fa[x]:=y;
        end;
    readln(x,y);
end;

function find():longint;
var i:longint;
begin
    for i:= to n do
        if fa[i]= then
            exit(i);
end;
//哪个节点是树的根

begin
    fillchar(f,sizeof(f),);
    fillchar(fa,sizeof(fa),);
    fillchar(son,sizeof(son),);
    init;
    root:=find();
    work(root);
    writeln(max(f[root,],f[root,]));
end.