一大堆的福利之【USACO題庫】 Mixing Milk混合牛奶
阿新 • • 發佈:2019-02-02
題目描述
牛奶包裝是一個如此低利潤的生意,所以儘可能低的控制初級產品(牛奶)的價格變的十分重要。
請幫助快樂的牛奶製造者(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.