PID172 / 圣诞树（RQNOJ）

RQNOJ 圣诞树

题目描述

圣诞特别礼物挂在一棵圣诞树上，这棵树有n层，每层有一件礼物，每件礼物都有一个价值，有的礼物还有一些连结线，与下层的礼物相连，领取礼物的规则如下：任选一件礼物，它的下面如果有连结线，则可以继续取它连结的礼物，以此类推，直至取到没有连结线的礼物才结束，你如果是第一个去取，怎样取才能获得最大的价值呢？请你编一程序解决这一问题。

输入输出

输入格式

输入文件tree.in的第一行只有一个数据n(n<=100),表示有n层礼物，以下有n行数据，分别表示第1-n层礼物的状态，每行至少由一个数据构成，且第一个数据表示该礼物的价值，后面的数据表示它与哪些层的礼物相连，如果每行只有一个数据则说明这层礼物没有与下层礼物相连，每个数的大小均不超过10000。

输出格式

输出文件tree.out也只有一个数，表示获得的取大价值。

样例 Sample

样例输入

3

12 2 3

20

30

样例输出

42

分析

该题很显然都已经将阶段已经划分完毕，所以直接动态规划即可，方程

f[i]表示从i到n的最大价值

ans=max(ans,f[i])

f[i]=a[i]+maxn

maxn=max(maxn,f[j])

本人较弱，写了一个最长路程序也过了。。。。

附上动态规划代码。。

代码如下

program tree;
var n,sum,i,j:longint;
num,value:array[1..1000] of longint;
f:array[1..10000] of longint;
map:array[1..100,1..100] of boolean;
maxn:longint;
ans:longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a);
exit(b);
end;

begin
readln(n);
fillchar(map,sizeof(map),false);
for i:=1 to n do
begin
sum:=0;
while not eoln do
begin
inc(sum);
read(num[sum]);
end;
readln;
value[i]:=num[1];
for j:=2 to sum do
begin
map[i,num[j]]:=true;
end;
end;
f
:=value
;
ans:=f
;
for i:=n-1 downto 1 do
begin
maxn:=0;
for j:=i+1 to n do
if map[i,j] then
maxn:=max(maxn,f[j]);
f[i]:=value[i]+maxn;
ans:=max(ans,f[i]);
end;
write(ans);
end.

评测详情

测试点1 Accepted / 0ms / 316kB

测试点2 Accepted / 0ms / 316kB

测试点3 Accepted / 0ms / 316kB

测试点4 Accepted / 0ms / 316kB

测试点5 Accepted / 0ms / 316kB

测试点6 Accepted / 0ms / 316kB

测试点7 Accepted / 0ms / 316kB

测试点8 Accepted / 0ms / 316kB

测试点9 Accepted / 0ms / 316kB

测试点10 Accepted / 5ms / 316kB

困死，差点砸桌子上。。。