jzoj. 1285. 奶酪厂

Description

　　奶牛买了一个奶酪厂生产奶酪,已知每周生产一单位奶酪的费用为C_i，每周可以生产任意数量的奶酪，现在要为接下来N(1<=N<=10,000)周做生产计划。
　　厂里有一个仓库，存储量无穷大，可以用来存储暂时不用的奶酪，每单位奶酪每周花费S(1<=S<=100)。
　　告诉你每周客户的需求量Y_i(0<=Y_i<=10,000)，请你帮忙用最少的钱满足这些需求。

Input

　　第1行：两个空格隔开的整数N,S
　　第2-N+1行：每行两个空格隔开的整数C_i和Y_i。

Output

　　输出一个整数表示最少花费。注意答案可能会超出longint范围。

Sample Input

4 5
88 200
89 400
97 300
91 500

Sample Output

126900

Data Constraint

Hint

【样例说明】
　　第一周生产200单位，第二周生产700单位，400给客户，300存在仓库里留给第三周，第四周生产500单位。

分析：贪心
如果当前存进来的费用小于上一个月的单位费用，那么就买进。
证明：设上一个月单位费用为s1，当月买进单位费用s2，对于现在及以后的总共i+1个月若继续用s1的费用为i*s1+s1，若替换，费用为s2+s2*i那么显然当s2

var i:longint; n,t,s:int64; ans:int64; a,c:array [1..100001] of int64;function min(x,y:int64):int64; begin  if x<y then exit(x)         else exit(y); end;begin readln(n,s); for i:=1 to n do  read(c[i],a[i]); t:=maxlongint-s-1; for i:=1 to n do  begin   t:=t+s;   ans:=ans+min(t,c[i])*a[i];   t:=min(t,c[i]);  end; writeln(ans);end.