一大堆的福利之【USACO题库】 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

var n,m,i,ans:longint;
    a:array[1..2,1..5000] of longint;
procedure qsort(l,r:longint);
var i,j,m,t:longint;
begin
    i:=l;
    j:=r;
    m:=a[1,(l+r) div 2];
    repeat
        while a[1,i]<m do inc(i);
        while a[1,j]>m do dec(j);
        if i<=j then
        begin
            t:=a[1,i];
            a[1,i]:=a[1,j];
            a[1,j]:=t;
            t:=a[2,i];
            a[2,i]:=a[2,j];
            a[2,j]:=t;
            inc(i);
            dec(j);
        end;
    until i>j;
    if l<j then qsort(l,j);
    if i<r then qsort(i,r);
end;
begin
    readln(n,m);
    for i:=1 to m do readln(a[1,i],a[2,i]);
    qsort(1,m);
    i:=0;
    while n>0 do
    begin
        inc(i);
        if n>=a[2,i] then
        begin
            n:=n-a[2,i];
            ans:=ans+a[2,i]*a[1,i];
        end
        else
        begin
            ans:=ans+n*a[1,i];
            n:=0;
        end;
    end;
    writeln(ans);
end.