洛谷 P1208 USACO 1.3 混合牛奶 Mixing Milk

题目描述

由于乳制品产业利润很低，所以降低原材料（牛奶）价格就变得十分重要。帮助Marry乳业找到最优的牛奶采购方案。

Marry乳业从一些奶农手中采购牛奶，并且每一位奶农为乳制品加工企业提供的价格是不同的。此外，就像每头奶牛每天只能挤出固定数量的奶，每位奶农每天能提供的牛奶数量是一定的。每天Marry乳业可以从奶农手中采购到小于或者等于奶农最大产量的整数数量的牛奶。

给出Marry乳业每天对牛奶的需求量，还有每位奶农提供的牛奶单价和产量。计算采购足够数量的牛奶所需的最小花费。

注：每天所有奶农的总产量大于Marry乳业的需求量。

输入输出格式

输入格式：
第 1 行共二个数值: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 一天能卖给Marry的牛奶制造公司的牛奶数量。

输出格式：
单独的一行包含单独的一个整数，表示Marry的牛奶制造公司拿到所需的牛奶所要的最小费用。

输入输出样例

输入样例#1：
100 5
5 20
9 40
3 10
8 80
6 30
输出样例#1：
630
说明

题目翻译来自NOCOW。

USACO Training Section 1.3

快排：
1.排序单价。
2.从小到大枚举每一个单价，如果当前欠缺牛奶数>=目前农民拥有牛奶数,ans+单价数量。否则，ans+单价 欠缺牛奶数，退出循环输出。
时间复杂度：O(m+m)

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