【寒假任务】 洛谷1208 [USACO1.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的牛奶制造公司拿到所需的牛奶所要的最小费用。
样例输入
100 5
5 20
9 40
3 10
8 80
6 30
样例输出
630
算法讨论
比较典型的部分背包问题，用贪心即可。

const
  maxn=5000;
var
  w,c:array[1..maxn] of longint;
  i,j,n,m:longint;
  s:int64;

procedure qsort(l,r:longint);
var
  i,j,t,m:longint;
begin
  i:=l; j:=r;
  m:=w[(l+r) div 2];
  repeat
    while w[i]do
      inc(i);
    while w[j]>m do
      dec(j);
    if i<=j
      then begin
             t:=w[i]; w[i]:=w[j]; w[j]:=t;
             t:=c[i]; c[i]:=c[j]; c[j]:=t;
             inc(i); dec(j)
           end;
  until i>j;
  if lthen qsort(l,j);
  if ithen qsort(i,r)
end;

begin
  read(n,m);
  for i:=1 to m do
    read(w[i],c[i]);
  qsort(1,m);
  i:=1;
  repeat
    if c[i]<=n
      then begin
             dec(n,c[i]);
             inc(s,w[i]*c[i]);
             inc(i)
           end
      else begin
             inc(s,w[i]*n);
             n:=0
           end;
  until n=0;
  write(s)
end.

迟到的生日祝福，拉姆雷姆生日快乐！
Pixiv ID：61240729