= =嘛~蒟蒻求改错 【金明的预算什么的。。

program Project1;
var n,m,c,a,b,i,j,v0,v1,v2,p0,p1,p2:longint;
f:array[0..100,0..32000] of longint;
p,v:array[0..100,0..2] of longint;
begin
readln(n,m);
n:=n div 10;
for i:=1 to m do
begin
readln(a,b,c);
if c=0 then c:=i;
for j:=0 to 2 do
if v[c,j]=0 then
begin
v[c,j]:=a div 10;
p[c,j]:=v[c,j]*b;
break;
end;
end;
for i:=1 to m do
if v[i,0]<>0 then
begin
v0:=v[i,0];
v1:=v[i,1];
v2:=v[i,2];
p0:=p[i,0];
p1:=p[i,1];
p2:=p[i,2];
for j:=n downto 0 do
begin
f[i,j]:=f[i-1,j];
if (j>=v0) and (f[i-1,j-v0]+p0>f[i,j]) then f[i,j]:=f[i-1,j-v0]+p0;
if (j>=v0+v1) and (f[i-1,j-v0-v1]+p0+p1>f[i,j]) then f[i,j]:=f[i-1,j-v0-v1]+p0+p1;
if (j>=v0+v2) and (f[i-1,j-v0-v2]+p0+p2>f[i,j]) then f[i,j]:=f[i-1,j-v0-v2]+p0+p2;
if (j>=v0+v1+v2) and (f[i-1,j-v0-v1-v2]+p0+p1+p2>f[i,j]) then f[i,j]:=f[i-1,j-v0-v1-v2]+p0+p1+p2;
end;
end;
writeln(f[m,n]*10);
end.

参考书上的程序打的 但是就是不对

是m件。。。

用二维数组存的主从啊。。。怎么会是一件呢

回复8楼：就是有这个主件的时候对主件及附件DP啊

回复4楼：不是m件没错 可是这样的话也不会有影响吧