0-1背包问题……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

w,v:array[0..100]of longint;

f:array[0..1000]of longint;

n,m,i,j,ans:longint;

function max(a,b:longint):longint;

begin

if a>b then exit(a) else exit(b);

end;

begin

readln(n);

readln(m);

for i:=1 to n do read(v[i],w[i]);

for i:=1 to n do

for j:=m downto w[i] do

f[j]:=max(f[j-w[i]]+v[i],f[j]);

writeln(f[m]);

end.

一切只为了AC！！！！！！！！

It is very esay 的 01背包嘛！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

01背包问题，老师会教的。

考察语文读题能力,我一开始还想要递归输出游园方案的...结果就是个简单的背包...

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

---|---|---|---|---|---|-

Array Test is so easy!

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

对水题有着不一样的情愫。。

直接notepad里面写完，不过FP，就AC了。。

数组开小了（500），为何提示“超过时限”？

开到1000就可以了。

但是“超过时限”是怎么回事？

一维DP，，倒推，，

超级郁闷啊。。。

0MS··

没见这么郁闷的DP。。

program P_1;

var x:array[0..1000] of longint;

i,j,v,m,n,num:longint;

begin

readln(n);

readln(num);

fillchar(x,sizeof(x),0);

for i:=1 to n do

begin

readln(v,m);

for j:=num downto m do

if x[j-m]+v>x[j] then x[j]:=x[j-m]+v;

end;

write(x[num]);

end.

这是大牛的题解

好崇拜！！

我一开始把它做成完全背包了

我555555

哎...

14行code AC 就当是背包的巩固练习

水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

var

n,m,w,v,i,j:longint;

f:array[0..10000]of longint;

begin

assign(input,'data.in'); reset(input);

assign(output,'data.out'); rewrite(output);

readln(n);

readln(m);

fillchar(f,sizeof(f),0);

for i:=1 to n do

begin

readln(v,w);

for j:=m downto w do

if f[j-w]+v>f[j] then f[j]:=f[j-w]+v;

end;

writeln(f[m]);

close(input); close(output);

end.

一次AC，o(∩_∩)o...哈哈，不就是个最最最基础的0-1背包嘛。

一种想哭的感觉，第一次竟然把n和t看反了，没能一次AC，囧！

深刻记忆

不能再水的纯净水，只需二个for 语句,一次AC

var i,j,k,l,m,n:integer;

a,b:array[1..100] of integer;

c:array[0..1000,0..1000] of integer;

function max(x,y:integer):integer;

begin

if x>y then max:=x else max:=y;

end;

begin

readln(n);

readln(m);

for i:=1 to n do

readln(a[i],b[i]);

fillchar(c,sizeof(c),0);

for i:=1 to n do

begin

for j:=m downto 1 do

begin

if j>=b[i] then

c:=max(c,c+a[i])

else

c:=c;

end;

end;

writeln(c[n,m]);

end.

01背包 比较简单

经典 01 背包问题.

不过一个等号害的我提交三次,郁闷!!!

背包

什么水题目啊，太水了啊！