混合牛奶pascal程序

题意

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

分析

排序，最小价值优先取，太多了就退出循环，输出（之前的价值+还有多少需求*退出时的单价）。

var
n,m,i,j,tj:longint;
a,b:array[0..5000]of longint;

procedure kp(l,r:longint);
var
i,j,mid:longint;
begin
if l>=r then exit;
i:=l;j:=r;mid:=a[(l+r) div 2];
repeat
while a[i]<mid do inc(i);
while a[j]>mid do dec(j);
if i<=j then
begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
inc(i);dec(j);
end;
until i>j;
kp(l,j);
kp(i,r);
end;

begin
readln(n,m);
for i:=1 to m do
readln(a[i],b[i]);
kp(1,m);
tj:=0;
i:=1;
while (i<=m)and(b[i]<=n) do
begin
tj:=tj+a[i]*b[i];
n:=n-b[i];
inc(i);
end;
write(tj+n*a[i]);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500208.html

混合牛奶pascal程序相关推荐

持续集成持续部署持续交付_自动持续开发和交付混合移动应用程序
持续集成持续部署持续交付对于当今的组织而言,提供移动应用程序本质上是一项业务需求. 开发应用程序的第一步之一就是了解不同的类型(本机,混合(或跨平台)和Web),以便您可以确定哪种类型最能满足您的需 ...
洛谷 P1208 [USACO1.3]混合牛奶 Mixing Milk
P1208 [USACO1.3]混合牛奶 Mixing Milk 题目描述由于乳制品产业利润很低,所以降低原材料(牛奶)价格就变得十分重要.帮助Marry乳业找到最优的牛奶采购方案. Marry乳业 ...
移动应用测试基于JAVA_Appium用于测试Android混合移动应用程序
我想在Android上运行的Cordova之上自动测试基本的混合移动应用程序构建 . 我使用了Apppium . 我跟着tutorial video开始了 . 我下载并将Selenum,selendr ...
AcWing 1714.混合牛奶
AcWing 1714.混合牛奶题目链接题目描述: 农业,尤其是生产牛奶,是一个竞争激烈的行业. Farmer John 发现如果他不在牛奶生产工艺上有所创新,他的乳制品生意可能就会受到重创! 幸 ...
AC 混合牛奶 (模拟)
农业,尤其是生产牛奶,是一个竞争激烈的行业. Farmer John 发现如果他不在牛奶生产工艺上有所创新,他的乳制品生意可能就会受到重创! 幸运的是,Farmer John 想出了一个好主意. 他的 ...
USACO——混合牛奶
洛谷 P1208 [USACO1.3]混合牛奶 Mixing Milk 题目描述由于乳制品产业利润很低,所以降低原材料(牛奶)价格就变得十分重要.帮助Marry乳业找到最优的牛奶采购方案. Marr ...
4.3每日一题|混合牛奶(c++)
今日题目 [USACO1.3]混合牛奶 Mixing Milk - 洛谷
混合牛奶（三头牛的故事）
混合牛奶没想到一头牛,能编出这么多道题目hhh 我愿称其为<安徒生童话之牛的故事> 题目农业,尤其是生产牛奶,是一个竞争激烈的行业. Farmer John 发现如果他不在牛奶生产工艺 ...
混合牛奶 Mixing Milk
P1208 [USACO1.3]混合牛奶 Mixing Milk - 洛谷 | 计算机科学教育新生态 (luogu.com.cn) 解题思路 1.创建结构体变量,储存农民牛奶的单价和农民一天最多能卖出 ...

混合牛奶pascal程序

混合牛奶pascal程序相关推荐

最新文章

热门文章