题目:
题目描述
由于乳制品产业利润很低,所以降低原材料(牛奶)价格就变得十分重要。帮助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的牛奶制造公司拿到所需的牛奶所要的最小费用。
作者思路:贪心,找最低价格到最高价格。
代码:
var a,b:array[0..5001] of longint;
i,ans,n,m:longint;
procedure qsort(l,r:longint);
var m,n,t,mid,i,j:longint;
begin
i:=l; j:=r;
mid:=a[random(j-i+1)+i];
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:=b[i]; b[i]:=b[j]; b[j]:=t;
inc(i); dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if l<j then qsort(l,j);
end;
procedure init;
var i:longint;
begin
read(m,n);
if m=0 then write(0);
for i:=1 to n do read(a[i],b[i]);
qsort(1,n);
end;
begin
init;
for i:=1 to n do
begin
if b[i]<=m then
begin
m:=m-b[i];
ans:=ans+a[i]*b[i];
end else
begin
write(ans+a[i]*m);
halt;
end;
if m=0 then
begin
write(ans);
halt;
end;
end;
end.