[USACO 1.3.1] Mixing Milk

[题目描述]

Mixing Milk

混合牛奶

牛奶包装是一个如此低利润的生意,所以尽可能低的控制初级产品(牛奶)的价格变的十分重要。
请帮助快乐的牛奶制造者(Merry Milk Makers)以可能的最廉价的方式取得他们所需的牛奶。
快乐的牛奶制造公司从一些农民那购买牛奶，每个农民卖给牛奶制造公司的价格不一定相同。
而且,如一只母牛一天只能生产一定量的牛奶,农民每一天只有一定量的牛奶可以卖。
每天,快乐的牛奶制造者从每个农民那购买一定量的牛奶,少于或等于农民所能提供的最大值。
给出快乐牛奶制造者的每日的牛奶需求,连同每个农民的可提供的牛奶量和每加仑的价格,请计算快乐的牛奶制造者所要付出钱的最小值。
注意:
每天农民生产的牛奶的总数对快乐的牛奶制造者来说足够的。

PROGRAM NAME: milk

INPUT FORMAT
第 1 行:二个整数, N 和 M。
第一个数值,N,(0<= N<=2,000,000)是快乐的牛奶制造者的一天需要牛奶的数量。
第二个数值,M,(0<= M<=5,000)是他们可能从农民那买到的数目。
第 2 到 M+1 行:每行二个整数,Pi 和 Ai。
Pi(0<= Pi<=1,000) 是农民 i 牛奶的价格。
Ai(0 <= Ai <= 2,000,000)是农民 i 一天能卖给快乐的牛奶制造者的牛奶数量。

SAMPLE INPUT (file milk.in) 
100 5
5 20
9 40
3 10
8 80
6 30

OUTPUT FORMAT
单独的一行包含单独的一个整数，表示快乐的牛奶制造者拿到所需的牛奶所要的最小费用

SAMPLE OUTPUT (file milk.out)
630

[解题思路]

很简单的贪心啦、

按价格升序排下序，就统计答案了。

其实还是NC得很，价格的范围只有1000，可以基排，完全不用快排的啦、

[Code]

{ID: zane2951PROG: milkLANG: PASCAL}program milk;var   p,t:array[0..5001] of longint;   n,m,tot,i:longint;//-----------qs------------procedure qs(ss,tt:longint);var   i,j,ce,tmp:longint;begin   i:=ss; j:=tt; ce:=p[(i+j)>>1];   repeat      while p[i]<ce do inc(i);      while p[j]>ce do dec(j);      if i<=j then         begin            tmp:=p[i]; p[i]:=p[j]; p[j]:=tmp;            tmp:=t[i]; t[i]:=t[j]; t[j]:=tmp;            inc(i); dec(j);         end;   until i>j;   if i<tt then qs(i,tt); if ss<j then qs(ss,j);end;//----------main-----------begin   assign(input,'milk.in'); reset(input);   assign(output,'milk.out'); rewrite(output);   readln(n,m);   for i:=1 to m do readln(p[i],t[i]);   qs(1,m);   tot:=0;   for i:=1 to m do      if t[i]<=n then         begin            tot:=tot+p[i]*t[i];            n:=n-t[i];         end      else         begin            tot:=tot+p[i]*n;            break;         end;   writeln(tot);   close(input); close(output);end.