admin 管理员组

文章数量: 888297

SSL 2295——暗黑破坏神

Description

无聊中的小x玩起了Diablo I…

游戏的主人公有n个魔法

每个魔法分为若干个等级，第i个魔法有p[i]个等级(不包括0)

每个魔法的每个等级都有一个效果值，一个j级的i种魔法的效果值为w[i][j]

魔法升一级需要一本相应的魔法书

购买魔法书需要金币，第i个魔法的魔法书价格为c[i]

而小x只有m个金币(好孩子不用修改器)

你的任务就是帮助小x决定如何购买魔法书才能使所有魔法的效果值之和最大

开始时所有魔法为0级 效果值为0

Input

第一行 用空格隔开的两个整数n(0
以下n行 描述n个魔法

第i+1行描述 第i个魔法 格式如下(0
c[i] p[i] w[i][1] w[i][2] … w[i][p[i]]

Output

第一行输出一个整数，即最大效果

Sample Input

3 10
1 3 1 2 2
2 3 2 4 6
3 3 2 1 10
Sample Output

11
1
0
3
Hint

0< n< =100,0< m <=500,0 < p[i] <= 50,0 < c[i] <=10

简单的背包，主要就是记录路径，再递归输出

代码如下:

constmaxn=500;
varf,a,b:array[0..maxn,0..maxn] of longint;c,p:array[0..maxn] of longint;i,j,k,n,m,maxf,x,y:longint;procedure print(x,y:longint);
beginif x=0 then exit;print(x-1,y-b[x,y]*c[x]);writeln(b[x,y]);
end;function max(x,y:longint):longint;
beginif x>y then exit(x) else exit(y);
end;beginreadln(n,m);for i:=1 to n dobeginread(c[i],p[i]);for j:=1 to p[i] doread(a[i,j]);readln;end;for i:=1 to n dofor j:=1 to m dobeginf[i,j]:=f[i-1,j];for k:=0 to p[i] dobeginif k*c[i]>j then break;if f[i,j]<f[i-1,j-k*c[i]]+a[i,k] thenbeginf[i,j]:=f[i-1,j-k*c[i]]+a[i,k];b[i,j]:=k;end;end;end;writeln(f[n,m]);for j:=m downto 1 dofor i:=n downto 1 doif f[i,j]>=maxf thenbeginmaxf:=f[i,j];x:=i;y:=j;end;print(x,y);for i:=x+1 to n dowriteln(0); 
end.

转载于:.html

本文标签： SSL 2295暗黑破坏神

版权声明：本文标题：SSL 2295——暗黑破坏神 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1693581572h230510.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。