装箱问题(pack.pas/c/cpp)

最新推荐文章于 2023-08-12 23:43:10 发布

jie_guale

最新推荐文章于 2023-08-12 23:43:10 发布

阅读量765

点赞数

分类专栏： NOIP2011黎明前夕的黑暗 NOIP原题动态规划文章标签： output pascal input

本文链接：https://blog.csdn.net/jie_guale/article/details/6839612

版权

NOIP2011黎明前夕的黑暗同时被 3 个专栏收录

223 篇文章 1 订阅

订阅专栏

动态规划

81 篇文章 0 订阅

订阅专栏

NOIP原题

26 篇文章 0 订阅

订阅专栏

装箱问题

(pack.pas/c/cpp)

来源：NOIP2001(普及组) 第四题

【问题描述】

有一个箱子容量为V（正整数，0＜＝V＜＝20000），同时有n个物品（0＜n＜＝30＝，每个物品有一个体积（正整数）。

要求n个物品中，任取若干个装入箱内，使箱子的剩余空间为最小。

【输入文件】

第一行一个正整数V表示箱子的容量，第二行一个正整数N表示物品个数，接下来N行列出这N个物品各自的体积。

【输出文件】

单独一行，表示箱子最小的剩余空间。

【输入样例】

【输出样例】

=======================

===========================

{
ID:jie19952
PROG:
LANG:PASCAL
}
var
  v:longint;
  n:longint;
  a:array[1..30]of longint;
  f:array[0..20000]of longint;
procedure init;
begin
  assign(input,'pack.in');
  assign(output,'pack.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

function max(a,b:longint):longint;
begin
  if a>b then exit(a);
  exit(b);
end;

procedure main;
var
  i,j:longint;
begin
  readln(v);
  readln(n);
  for i:=1 to n do read(a[i]);
  fillchar(f,sizeof(f),0);
  for i:=1 to n do
    for j:=v downto a[i] do
      f[j]:=max(f[j],f[j-a[i]]+a[i]);
  writeln(v-f[v]);

  
end;

begin
  init;
  main;
  terminate;
end.