Description
一个铁路线上有n(2<=n<=10000)个火车站,每个火车站到该线路的首发火车站距离都是已知的。任意两站之间的票价如下表所示:
站之间的距离 - X 票价 0L1L2其中L1,L2,L3,C1,C2,C3都是已知的正整数,且(1 <= L1 < L2 < L3 <= 10^9, 1 <= C1 < C2 < C3 <= 10^9)。显然若两站之间的距离大于L3,那么从一站到另一站至少要买两张票。注意:每一张票在使用时只能从一站开始到另一站结束。现在需要你对于给定的线路,求出从该线路上的站A到站B的最少票价。你能做到吗?Input
输入文件的第一行为6个整数, L1, L2, L3, C1, C2, C3 (1 <= L1 < L2 < L3 <= 10^9, 1 <= C1 < C2 < C3 <= 10^9) ,这些整数由空格隔开.第二行为火车站的数量N (2 <= N <= 10000).第三行为两个不同的整数A、B,由空格隔开。接下来的 N-1 行包含从第一站到其他站之间的距离.这些距离按照增长的顺序被设置为不同的正整数。相邻两站之间的距离不超过L3. 两个给定火车站之间行程花费的最大值不超过10^9,而且任意两站之间距离不超过 10^9。
Output
输出文件中只有一个数字,表示从A到B要花费的最小值.
Sample Input
3 6 8 20 30 40
7 2 6 3 7 8 13 15 23 Sample Output70
按照题目要求,按分c1,c2,c3买票的价格
然后我们得出f[i]:=max(f[i],f[j]+m)代码如下:
var l,c:array[1..3]of longint; s,f:array[0..100000]of longint; a,b,n,i,j,x,m:longint;function min(x,y:longint):longint;begin if x>y then exit(y) else exit(x);end;begin for i:=1 to 3 do read(l[i]); for i:=1 to 3 do read(c[i]); readln; readln(n); readln(a,b); for i:=1 to n do f[i]:=maxlongint ; f[a]:=0; s[1]:=0; for i:=2 to n do readln(s[i]); for i:=a+1 to b do for j:=i-1 downto a do begin x:=s[i]-s[j]; if x<=l[1] then m:=c[1] else if x<=l[2] then m:=c[2] else if x<=l[3] then m:=c[3] else break; f[i]:=min(f[i],f[j]+m); end; writeln(f[b]);end.