[BZOJ1618] [Usaco2008 Nov]Buying Hay 购买干草

最新推荐文章于 2018-11-09 09:53:00 发布

slongle_amazing

最新推荐文章于 2018-11-09 09:53:00 发布

阅读量789

点赞数

分类专栏：动态规划—背包DP

本文链接：https://blog.csdn.net/slongle_amazing/article/details/47378585

版权

动态规划—背包DP 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

1618: [Usaco2008 Nov]Buying Hay 购买干草

Time Limit: 5 Sec Memory Limit: 64 MB

Description

约翰的干草库存已经告罄，他打算为奶牛们采购日(1≤日≤50000)磅干草．
他知道N(1≤N≤100)个干草公司，现在用1到N给它们编号．第i个公司卖的干草包重量为Pi(1≤Pi≤5000)磅，需要的开销为Ci(l≤Ci≤5000)美元．每个干草公司的货源都十分充足，可以卖出无限多的干草包．帮助约翰找到最小的开销来满足需要，即采购到至少H磅干草．

Input

第1行输入N和日，之后N行每行输入一个Pi和Ci．

Output

最小的开销．

Sample Input

2 15

3 2

5 3

Sample Output

FJ can buy three packages from the second supplier for a total cost of 9.

HINT

Source

Silver

题解

背包DP
但体积不是V，体积>=V，所以往V后估个值即可

var
 dp:array[0..100000]of longint;
 a,b:array[0..50000]of longint;
 n,m,ans:longint;
 i,j:longint;
function min(a,b:longint):longint;
begin
 if a>b
 then exit(b)
 else exit(a);
end;

begin
 readln(n,m);
 for i:=1 to n do
  readln(a[i],b[i]);
 for i:=1 to m*2 do
  dp[i]:=1500000000;
 dp[0]:=0;
 for i:=1 to n do
  for j:=a[i] to m*2 do
   dp[j]:=min(dp[j],dp[j-a[i]]+b[i]);
 ans:=dp[m];
 for i:=m+1 to m*2 do
  if dp[i]<ans
  then ans:=dp[i];
 writeln(ans);
end.