[问题描述]
无聊中的小x玩起了Diablo I… 游戏的主人公有n个魔法每个魔法分为若干个等级，第i个魔法有p[i]个等级(不包括0)。每个魔法的每个等级都有一个效果值，一个j级的i种魔法的效果值为w[i][j] 。魔法升一级需要一本相应的魔法书购买魔法书需要金币，第i个魔法的魔法书价格为c[i]，而小x只有m个金币(好孩子不用修改器)，你的任务就是帮助小x决定如何购买魔法书才能使所有魔法的效果值之和最大，开始时所有魔法为0级 效果值为0
Input
第一行 用空格隔开的两个整数n m ，以下n行 描述n个魔法，第i+1行描述 第i个魔法 格式如下 ：c[i] p[i] w[i][1] w[i][2] … w[i][p[i]]
Output
第一行输出一个整数，即最大效果值。 以后n行输出你的方案：
第i+1行有一个整数v[i] 表示你决定把第i个魔法学到v[i]级
如果有多解 输出花费金币最少的一组
如果还多解 输出任意一组
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
算法描述：动态规划。
F[i][j] 表示前i个魔法使用j个金币可以达到的最大的效果。
状态转移方程：
f[i][j] = max(f[i – 1][j], f[i – 1][j – k * c[i]] + w[i][k]) 1 <= k <= p[i] 并且j >= k * c[i]
对于第i个魔法，它可以不升级（也就是保持0级），同样也可以达到1到p[i]的级。然而要达到第k级的魔法，所要消耗的金币数是k*c[i]，而金币数为j，所以状态转移方程就如上所示。最后还要使用一个二维数组存取这个最大值的时候这个魔法所要达到的级数。为后面的级数输出做准备。
代码
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | #include <stdio.h> #include <string.h> #define max(a,b) a>b?a:b int f[101][501], mark[101][501], p[101], c[101], w[101][51], v[101]; int main() { int n, m, i, j, k, max, t; scanf("%d%d", &n, &m); for (i = 1; i <= n; i++) { scanf("%d%d", &c[i], &p[i]); for (j = 1; j <= p[i]; j++) scanf("%d", &w[i][j]); } memset(f, 0, sizeof(f)); for (i = 1; i <= n; i++) //对于每个魔法 { for (j = 1; j <= m; j++)//当使用j个金币时 { f[i][j] = f[i - 1][j];//不升级 mark[i][j] = 0;//记录标记 for (k = 1; k <= p[i]; k++)//对于每个级数 { if (j >= k * c[i])//如果金币够用的话 { if (f[i - 1][j - k * c[i]] + w[i][k] > f[i][j])//寻找最大的效果，并记录下来 { f[i][j] = f[i - 1][j - k * c[i]] + w[i][k]; mark[i][j] = k; } } else break; } } } max = 0; for (j = m; j >= 1; j--)//寻找花费金币最少，而效果最大的那个解 { for (i = n; i >= 1; i--) { if (f[i][j] >= max) { k = j; t = i; max = f[i][j]; } } } memset(v, 0, sizeof(v)); j = k;//从后往前找出每个魔法所要达到的级数。 for (i = t; i >= 1; i--) { v[i] = mark[i][j]; j = j - c[i] * v[i]; } printf("%d\n", max); for (i = 1; i <= n; i++) printf("%d\n", v[i]); return 0; } |
看您的程序，是用二维的方法。但是思路跟小弟我的差不多啊。
http://www.bianchengla.com/oj/1/practise/problem?id=1012
这里有个网站，您能否去看看？
这是我的代码，感觉没错：
program diablo;
var n,m,i,j,k,t,max:longint;
c,p,temp:array[0..100]of longint;
w:array[0..100,0..50]of longint;
f:array[-1000..1000]of longint;
v:array[0..100,0..1000]of longint;
begin
assign(input,’diablo.in’);reset(input);assign(output,’diablo.out’);rewrite(output);
readln(n,m);
fillchar(f,sizeof(f),0);
fillchar(v,sizeof(v),0);
fillchar(temp,sizeof(temp),0);
for i:=1 to n do
begin
read(c[i],p[i]);
for j:=1 to p[i] do
read(w[i,j]);
end;
for i:=1 to n do
for j:=m downto c[i] do
for k:=1 to p[i] do
begin
if j-c[i]*kf[j] then begin f[j]:=f[j-c[i]*k]+w[i,k]; v[i,j]:=k;end;
end;
max:=0;
for i:=m downto 1 do if max<=f[i] then begin max:=f[i];t:=i;end;
writeln(f[t]);
temp[n]:=v[n,t];
for i:=n downto 1 do
begin
t:=t-v[i,t]*c[i];
temp[i-1]:=v[i-1,t];
end;
for i:=1 to n do writeln(temp[i]);
close(input);close(output);
end.
对不起啊没看到数据不同。。。