火车票
Time Limit:10000MS Memory Limit:65536K
Total Submit:322 Accepted:157
Case Time Limit:1000MS
Description
一个铁路线上有n(2<=n<=10000)个火车站,每个火车站到该线路的首发火车站距离都是已知的。任意两站之间的票价如下表所示:
站之间的距离 - X 票价
0<x<=l1 c1=""
L1<x<=l2 c2=""
L2<x<=l3 c3=""
其中L1,L2,L3,C1,C2,C3都是已知的正整数,且(1 <= L1 < L2 < L3 <= 10^9, 1 <= C1 < C2 < C3 <= 10^9)。显然若两站之间的距离大于L3,那么从一站到另一站至少要买两张票。注意:每一张票在使用时只能从一站开始到另一站结束。现在需要你对于给定的线路,求出从该线路上的站A到站B的最少票价。你能做到吗?
</x<=l1 >
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 Output
70
Source
elba
var
f,t:array[1..10000]of longint;
l,c:array[1..3]of longint;
n,a,b,i,j,p,q:longint;
function min(a,b:longint):longint;//状态转移方程
begin
if a<b then exit(a);
exit(b);
end;
begin
for i:=1 to 3 do read(l[i]);
for i:=1 to 3 do read(c[i]);
readln(n);
readln(a,b);
for i:=2 to n do read(t[i]);
for i:=1 to n do f[i]:=maxlongint;//赋个大值,方便后面比较
f[a]:=0;//要求从a站到b站,所以a站是起点,起点到起点不用钱
for i:=a+1 to b do//因为a是起点,所以略过a
for j:=i-1 downto a do//j为i之前的点,用来求出i点到a点最少的钱
begin
p:=t[i]-t[j];//中间隔了多少米
if p<=l[1] then q:=c[1]//不同路程,不同价钱
else if p<=l[2] then q:=c[2]
else if p<=l[3] then q:=c[3]
else break;//不能直通,要中转
f[i]:=min(f[i],f[j]+q);
end;
writeln(f[b]);//f[b]装的就是b点到a点最少的钱
end.