01背包解析和程序 [复制链接]

顶~~~~~~~~~~~~~~

不用吧,一个简单的01背包,写的如此繁

var
    opt : array[0..1000] of longint;
    n , m , w , v : longint;
begin
  readln(n,m);
  fillchar(opt,sizeof(opt),0);
  for i := 1 to n do
      begin
          readln(w,v);
          for  j := m downto w do
              if opt[j] < opt[j-w] + v  then opt[j] := opt[j-w] + v;
      end;
  writeln(f[m]);
end.

ffffffff

ftudzu7ftuet

kan kan

asdasf

？？？？？？

我狂顶！！！！！！！

yes