開心的金明

開心的金明

【問題描述】

金明今天很開心，家裡購置的新房就要領鑰匙了，新房裡有一間他自己專用的很寬敞的房間。更讓他高興的是，媽媽昨天對他說：「你的房間需要購買哪些物品，怎麼布置，你說了算，只要不超過n 元錢就行」。今天一早金明就開始做預算，但是他想買的東西太多了，肯定會超過媽媽限定的n 元。於是，他把每件物品規定了乙個重要度，分為5 等：用整數1~5 表示，第5 等最重要。他還從網際網路上查到了每件物品的**（都是整數元）。他希望在不超過n 元（可以等於n 元）的前提下，使每件物品的**與重要度的乘積的總和最大。設第j 件物品的**為v[j]，重要度為w[j]，共選中了k 件物品，編號依次為j1...jk，則所求的總和為：v[j1]*w[j1]+..+v[jk]*w[jk]請你幫助金明設計乙個滿足要求的購物單.

【輸入檔案】

輸入的第1 行，為兩個正整數，用乙個空格隔開： n m

（其中n（<30000）表示總錢數，m(<25)為希望購買物品的個數。）

從第2 行到第m+1 行，第j 行給出了編號為j-1的物品的基本資料，每行有2 個非負整數 v p

（其中v 表示該物品的**（v≤10000），p 表示該物品的重要度（1~5））

【輸出檔案】

輸出只有乙個正整數，為不超過總錢數的物品的**與重要度乘積的總和的最大值（<100000000）

【輸入樣例】

1000 5

800 2

400 5

300 5

400 3

200 2

【輸出樣例】

3900

********************=

********************====


var n,m:longint;
a1:array[1..25]of longint;
a2:array[1..25]of longint;
f:array[0..30000]of longint;
procedure init;
begin
assign(input,'p2.in');
assign(output,'p2.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,v:longint;
begin
readln(n,m);
for i:=1 to m do
begin
readln(a1[i],v);
a2[i]:=a1[i]*v;
end;
fillchar(f,sizeof(f),0);
for i:=1 to m do
for j:=n downto a1[i] do
f[j]:=max(f[j],f[j-a1[i]]+a2[i]);
writeln(f[n]);
end;
begin
init;
main;
terminate;
end.

開心的金明

開心的金明

開心的金明

開心的金明

相關推薦