完全背包
Time Limit:1000MS Memory Limit:65536K
Total Submit:389 Accepted:259
Description
设有n 种物品,每种物品有一个重量及一个价值。但每种物品的数量是无限的,同时有一个背包,最大载重量为M,今从n 种物品中选取若干件(同一种物品可以多次选取),使其重量的和小于等于M,而价值的和为最大。
Input
第一行:两个整数,M(背包容量,M<= 200)和N(物品数量,N<= 30); 第2..N+1 行:每行二个整数Wi,Ui,表示每个物品的重量和价值。
Output
仅一行,一个数,表示最大总价值。
Sample Input
12 4
2 1
3 3
4 5
7 9
Sample Output
15
二维如下:
var a,f:array[0..1000,0..1000] of longint; i,n,max,j,m:longint; begin readln(m,n); for i:=1 to n do readln(a[i,1],a[i,2]); f[1,1]:=a[1,1]; for i:=1 to n do for j:=0 to m do begin f[i,j]:=f[i-1,j]; if (j>=a[i,1]) and (f[i-1,j]<f[i,j-a[i,1]]+a[i,2]) then f[i,j]:=f[i,j-a[i,1]]+a[i,2]; end; write(f[n,m]); end.
一维如下:
var a:array[0..1000,1..2] of longint; f:array[0..1000] of longint; i,n,j,m:longint; function max(a,b:longint):longint; begin if a>b then exit(a) else exit(b); end; begin readln(m,n); for i:=1 to n do readln(a[i,1],a[i,2]); for i:=1 to n do for j:=1 to m do begin if (j>=a[i,1]) then f[j]:=max(f[j],f[j-a[i,1]]+a[i,2]); end; write(f[m]); end.