[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: zane2951
PROG: milk
LANG: 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.