1740: [Usaco2005 mar]Yogurt factory 奶酪工厂

Time Limit: 5 Sec Memory Limit: 64 MB

Submit: 119 Solved: 100

Description

The cows have purchased a yogurt factory that makes world-famous Yucky Yogurt. Over the next N (1 <= N <= 10,000) weeks, the price of milk and labor will fluctuate weekly such that it will cost the company C_i (1 <= C_i <= 5,000) cents to produce one unit of yogurt in week i. Yucky's factory, being well-designed, can produce arbitrarily many units of yogurt each week. Yucky Yogurt owns a warehouse that can store unused yogurt at a constant fee of S (1 <= S <= 100) cents per unit of yogurt per week. Fortuitously, yogurt does not spoil. Yucky Yogurt's warehouse is enormous, so it can hold arbitrarily many units of yogurt. Yucky wants to find a way to make weekly deliveries of Y_i (0 <= Y_i <= 10,000) units of yogurt to its clientele (Y_i is the delivery quantity in week i). Help Yucky minimize its costs over the entire N-week period. Yogurt produced in week i, as well as any yogurt already in storage, can be used to meet Yucky's demand for that week.

牛们收购了一个奶酪工厂,接下来的N个星期里，牛奶价格和劳力价格不断起伏．第i周，生产一个单位奶酪需要Ci(1≤Ci≤5000)便士．工厂有一个货栈，保存一单位奶酪，每周需要S(1≤S≤100)便士，这个费用不会变化．货栈十分强大，可以存无限量的奶酪，而且保证它们不变质．工厂接到订单，在第i周需要交付Yi(0≤Yi≤104)单位的奶酪给委托人．第i周刚生产的奶酪，以及之前的存货，都可以作为产品交付．请帮牛们计算这段时间里完成任务的最小代价．

Input

* Line 1: Two space-separated integers, N and S.

* Lines 2..N+1: Line i+1 contains two space-separated integers: C_i and Y_i.

第1行输入两个整数N和S．接下来N行输入Ci和Yi．

Output

* Line 1: Line 1 contains a single integer: the minimum total cost to satisfy the yogurt schedule. Note that the total might be too large for a 32-bit integer.

输出最少的代价．注意，可能超过32位长整型．

Sample Input

4 5 88 200 89 400 97 300 91 500

Sample Output

126900 第1周生产200单位奶酪并全部交付；第2周生产700单位，交付400单位，有300单位；第3周交付300单位存货．第4周生产并交付500单位．

HINT

Source

Gold

题解：很经典的递推题（根本算不上DP，甚至有几分贪心的味道在里面），第五次见到了，不多说了，直接上代码（HansBug：难以想象这种题居然上usaco金组= =）

 1 /**************************************************************
 2     Problem: 1740
 3     User: HansBug
 4     Language: Pascal
 5     Result: Accepted
 6     Time:28 ms
 7     Memory:224 kb
 8 ****************************************************************/
 9  
10 var
11    i,j,k,l,m,n:longint;
12    ans:int64;
13 function min(x,y:longint):longint;
14          begin
15               if x<y then min:=x else min:=y;
16          end;
17 begin
18      readln(n,m);
19      l:=maxlongint-m;
20      for i:=1 to n do
21          begin
22               readln(j,k);
23               l:=min(l+m,j);
24               ans:=ans+int64(l)*int64(k);
25          end;
26      writeln(ans);
27      readln;
28 end.