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

 

装箱问题

(pack.pas/c/cpp)

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

【问题描述】

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

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

 

【输入文件】

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

【输出文件】

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

【输入样例】

24

6

8

3

12

7

9

7

【输出样例】

    0

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

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

{ID:jie19952PROG: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.