不好意思,我上面的码问题是
【题目描述】
德国放松对英国的进攻后,把矛头指向了东边——苏联。
1943年初,东线的战斗进行到白热化阶段。据可靠情报,90余万德国军队在库尔斯克准备发动浩大攻势。因此,朱可夫大帅要求你立即从远东的军工厂运输大量的装备支援库尔斯克前线。
列车司机告诉你,一趟列车最多可以容纳V体积的武器装备,但是你可能不能装满,因为列车承受不了那么大的重量,一趟列车最多可以承受G的重量。同时,军工厂仓库提供给你一份装备清单,详细记录了每件装备的体积、重量和火力。为了支援朱可夫大帅,你要找到一种方案,使得总火力值最大。
【输入数据】
第一行:V和G表示最大重量和体积;
第二行:N表示装备数目。
第三行到N+2行:每行3个整数Ti Vi Gi 表示各个装备的火力值、体积和重量。
【输出数据】
输出一个数表示可能获得的最大火力值。
【样例输入】
6 5
4
10 2 2
20 3 2
40 4 3
30 3 3
【样例输出】
50
【数据范围】
V,G,N<=400.
【题解】
很简单
二维0/1背包
【标程】
program hgdjk;
var v,g,n,i,j,k,l,t:longint;
a,b,c:array[1..400]of longint;
f:array[0..400,0..400]of qword;
begin
assign(input,'transport.in');
reset(input);
assign(output,'transport.out');
rewrite(output);
readln(v,g);
readln(n);
for i:=1 to n do
readln(a[i],b[i],c[i]);
fillchar(f,sizeof(f),0);
for i:=1 to n do
for j:=v downto b[i] do
for k:=g downto c[i] do
if f[j,k]<f[j-b[i],k-c[i]]+a[i] then f[j,k]:=f[j-b[i],k-c[i]]+a[i];
writeln(f[v,g]);
close(input);
close(output);
end.
里面有pascal代码,但我看不懂 是不是也用DP的,你帮忙看看好吗?
【题目描述】
德国放松对英国的进攻后,把矛头指向了东边——苏联。
1943年初,东线的战斗进行到白热化阶段。据可靠情报,90余万德国军队在库尔斯克准备发动浩大攻势。因此,朱可夫大帅要求你立即从远东的军工厂运输大量的装备支援库尔斯克前线。
列车司机告诉你,一趟列车最多可以容纳V体积的武器装备,但是你可能不能装满,因为列车承受不了那么大的重量,一趟列车最多可以承受G的重量。同时,军工厂仓库提供给你一份装备清单,详细记录了每件装备的体积、重量和火力。为了支援朱可夫大帅,你要找到一种方案,使得总火力值最大。
【输入数据】
第一行:V和G表示最大重量和体积;
第二行:N表示装备数目。
第三行到N+2行:每行3个整数Ti Vi Gi 表示各个装备的火力值、体积和重量。
【输出数据】
输出一个数表示可能获得的最大火力值。
【样例输入】
6 5
4
10 2 2
20 3 2
40 4 3
30 3 3
【样例输出】
50
【数据范围】
V,G,N<=400.
【题解】
很简单
二维0/1背包
【标程】
program hgdjk;
var v,g,n,i,j,k,l,t:longint;
a,b,c:array[1..400]of longint;
f:array[0..400,0..400]of qword;
begin
assign(input,'transport.in');
reset(input);
assign(output,'transport.out');
rewrite(output);
readln(v,g);
readln(n);
for i:=1 to n do
readln(a[i],b[i],c[i]);
fillchar(f,sizeof(f),0);
for i:=1 to n do
for j:=v downto b[i] do
for k:=g downto c[i] do
if f[j,k]<f[j-b[i],k-c[i]]+a[i] then f[j,k]:=f[j-b[i],k-c[i]]+a[i];
writeln(f[v,g]);
close(input);
close(output);
end.
里面有pascal代码,但我看不懂 是不是也用DP的,你帮忙看看好吗?
欢迎来到我的博客:http://blog..cn/noisunyuhong