1060: 背包6(含价值的填满型 完全 背包)

1060: 背包6(含价值的填满型 完全 背包)

时间限制: 1 Sec 内存限制: 128 MB

【问题描述】

一个特别的单行街道在每公里处有一个汽车站。顾客根据他们乘坐汽车的公里使来付费。例如下表就是一个费用的单子。

kilometres 1 2 3 4 5 6 7 8 9 10
price 12 21 31 40 49 58 69 79 90 101

没有一辆车子行驶超过10公里,一个顾客打算行驶n公里(1<=n<=100),它可以通过无限次的换车来完成旅程。最后要求费用最少。

【输入文件】

第一行10个整数分别表示行走1到10公里的费用(<=500)。注意这些数并无实际的经济意义,即行驶10公里费用可能比行驶一公里少。

第二行一个整数L表示,旅客的总路程数。

【输出文件】

仅一个整数表示最少费用。

【输入输出样例】

输入:

12 21 31 40 49 58 69 79 90 101

15

输出:

147

完全背包,但是要求最小值。

Solution

一道较为容易的背包问题
f[i]为从起点走到i的最小花费
走到i点可以是从f[i-j]走j公里来,f[i]=min{f[i-j]+a[j],f[i]}

即可!~~

Code


program Project1;
var a:array[1..11]of longint;
    f:array[1..10000]of longint;
    i,j,l:longint;
function min(p,q:longint):longint;
begin
  if p>q then exit(q)
  else exit(p);
end;
begin

  for i:=1 to 10 do read(a[i]);
  read(l);
  for i:=0 to l do f[i]:=9999999;
  f[1]:=a[1];
  f[0]:=0;
  if l=1 then writeln(f[1])
  else
  begin
    for i:=1 to l do
    for j:=1 to 10 do
    begin
    if i>=j then
    f[i]:=min(f[i-j]+a[j],f[i]);
    end;
    writeln(f[l]);


  end;


end.
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值