Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Pascal经典算法详解 - 背包问题 →→→→→进入此内容的聊天室

来自 , 2019-03-17, 写在 Delphi (Object Pascal), 查看 139 次.
URL http://www.code666.cn/view/7a1d9028
  1. var
  2. i,j,n,m:longint;
  3. v,p:array[1..25] of longint;
  4. f:array[0..25,0..30000] of longint;
  5.  
  6. begin
  7. assign(input,'p1317.in');
  8. reset(input);
  9. readln(n,m);
  10. for i:=1 to m do
  11.   read(v[i],p[i]);
  12. for i:=0 to n do
  13.   f[0,i]:=0;
  14. for i:=1 to m do
  15.   for j:=0 to n do
  16.     begin
  17.       f[i,j]:=f[i-1,j];
  18.       if (j>=v[i]) and (f[i-1,j-v[i]]+v[i]*p[i]>f[i,j]) then
  19.           f[i,j]:=f[i-1,j-v[i]]+v[i]*p[i];
  20.     end;
  21. write(f[m,n]);
  22. end.
  23. //delphi/7198

回复 "Pascal经典算法详解 - 背包问题"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666