最小乘车费用

最新推荐文章于 2022-07-11 21:46:26 发布

SSL_zeng_yu

最新推荐文章于 2022-07-11 21:46:26 发布

阅读量590

点赞数 1

CC 4.0 BY-SA版权

分类专栏： pascal 动态规划

本文链接：https://blog.youkuaiyun.com/SSL_zeng_yu/article/details/60323533

pascal 动态规划专栏收录该内容

25 篇文章

订阅专栏

探讨了一个人想行驶n公里并寻找最小费用乘车方案的问题。输入包括行驶1至10公里的费用及目标公里数，通过算法求解最小费用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最小乘车费用

Time Limit:10000MS Memory Limit:65536K
Total Submit:168 Accepted:115

Description

　　假设某条街上每一公里就有一个公共汽车站，并且乘车费用如下表：
　　
　　而任意一辆汽车从不行驶超过10公里。某人想行驶n公里，假设他可以任意次换车，请你帮他找到一种乘车方案，使得总费用最小
　　注意：10公里的费用比1公里小的情况是允许的。

Input

　　输入文件BUSSES.IN，文件共两行，第一行为10个不超过200的整数，依次表示行驶1～10公里的费用，相邻两数间用一个空格隔开；第二行为某人想要行驶的公里数。

Output

　　输出文件BUSSES.OUT，仅一行，包含一个整数，表示行使这么远所需要的最小费用。

Sample Input

12 21 31 40 49 58 69 79 90 101 
15

Sample Output

Source

elba

公式:

f[i]:=max(f[i]/f[i-j]+a[j]);

var
  i,j,k,n,m:longint;
  a,f:array[-1..1000]of longint;
begin
  for i:=1 to 10 do
    read(a[i]);
  readln(n);
  for i:=1 to n do
    begin
      f[i]:=maxlongint;
      for j:=1 to 10 do
        if (i>=j) and (f[i-j]+a[j]<f[i]) then
          f[i]:=f[i-j]+a[j];
    end;
  writeln(f[n]);
end.