讨论 / what's the matter?
我是白痴 2010-09-23 22:35:00
点我顶贴 收藏 删除
program woshitiancai;

const c=10;

type long=longint;

var g:array[0..100,0..30000] of long;

p,v:array[1..100] of long;

i,j,n,m:long;

begin

fillchar(g,sizeof(g),0);

readln(n,m);

for i:=1 to m do readln(p[i],v[i]);

for i:=1 to m do

for j:=1 to n do

if (j>=p[i]) and (g[i-1,j-p[i]]+v[i]>g[i-1,j]) then

g[i,j]:=g[i-1,j-p[i]]+v[i]

else

g[i,j]:=g[i-1,j];

writeln(g[m,n]);

end.

查看更多回复
提交回复