完全背包

完全背包

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
 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.