(ssl1643)最小乘车费用

最小乘车费用

Time Limit:10000MS  Memory Limit:65536K
Total Submit:171 Accepted:117

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

147

Source

elba

PS:其实这个“某人”好抠门啊，就不能一次性坐完它。

var
 a,f:array[0..100]of longint;
 n,i,j:longint;
function min(a,b:longint):longint;
begin
 if a<b then exit(a);
 exit(b);
end;
begin
 for i:=1 to 10 do read(a[i]);//1~10公里的费用
 read(n);
 for i:=1 to n do//按照公里数来算（一公里一公里地比较）
  begin
   f[i]:=999999;//要赋大点的值，不然后面比小时就会出现问题(我会说之前输出0了吗o(╯□╰)o)
   for j:=i-1 downto 0 do//按照公里数来算（一公里一公里地比较，不过这里是算ｉ以下的公里数了）
    if i-j<=10 then f[i]:=min(f[j]+a[i-j],f[i]);//i-j<=10是因为坐了10公里就要坐下辆车了（f[j]+a[i-j]=不知是否是最简的f[i]）
  end;
 writeln(f[n]);//坐到最后，也就到了n公里，钱也是统计到了n了
end.