完全背包

来源：互联网发布：华讯网络笔试题编辑：程序博客网时间：2024/05/14 08:50

完全背包

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

var thing:array[1..1000,1..2]of longint; bag:array[0..1000001]of longint; i,j,s,t,n,max:longint;begin read(n,s); for i:=1 to n do  begin   for j:=1 to 2 do    read(thing[i,j]);   readln;  end; for i:=1 to n do  begin   for j:=1 to s do    begin     if (j>=thing[i,1])and(bag[j]<=bag[j-thing[i,1]]+thing[i,2])      then  bag[j]:=bag[j-thing[i,1]]+thing[i,2];    end;  end; write(bag[s]);end.

0 0