公路乘车

3 篇文章 0 订阅
1 篇文章 0 订阅

公路乘车(bus)
时间限制: 1 Sec 内存限制: 128 MB
【题目描述】
一个特别的单行街道在每公里处有一个汽车站。顾客根据他们乘坐汽车的公里使来付费。例如下表就是一个费用的单子。 没有一辆车子行驶超过10公里,一个顾客打算行驶n公里(1< =n< =100),它可以通过无限次的换车来完成旅程。最后要求费用最少。 

【输入】
第一行十个整数分别表示行走1到10公里的费用(< =500)。注意这些数并无实际的经济意义,即行驶10公里费用可能比行驶一公里少。
第二行一个整数n表示,旅客的总路程数。

【输出】
仅一个整数表示最少费用。

【样例输入】
12 21 31 40 49 58 69 79 90 101
15

【样例输出】
147

话说这道题目有许多种解法,因为题目要求解最优,首先考虑贪心:性价比最小,在这里就是说一公里的车费单价,对于性价比,无非就是c[]/w[]的值。

var
  n,m,i,j,x,ans,minid1:longint;
  a,b:array[1..11] of longint;
  c:array[1..11] of real;
  min1:real;
procedure try(k:longint);
var
  i,minid:longint;
  min:real;
begin
  min:=maxlongint;
  minid:=0;
  if k=0 then exit;//没了
  for i:=1 to k do
    if c[i]<min then
    begin
      min:=c[i];
      minid:=i;
    end;
  ans:=ans+(k div minid)*a[minid];//一下子把所有的最优解包揽。
  try(k mod minid);//剩余的
end;
begin
  for i:=1 to 10 do
  begin
    read(a[i]);
    b[i]:=i;
  end;
  readln(m);
  for i:=1 to 10 do
  c[i]:=a[i]/b[i];
  min1:=maxlongint;
  for i:=1 to 10 do//特殊处理第一个最优选择
    if c[i]<min1 then
    begin
      min1:=c[i];
      minid1:=i;
    end;
  ans:=(m div minid1)*a[minid1];
  m:=m mod minid1;
  try(m);
  writeln(ans);
end.


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值