pku2355 Railway tickets

有n个火车站，从一个站点到另一个站点的费用C与它们的距离L有关，有3种距离，对应有3种费用。现在求从一个站点S到另一个站点E所需的最小费用。

很简单的DP，难度等价于数字三角形，

注意：输入中起点不一定大于终点

program pku2355(input,output);
var
    f    :array[0..10010] of longint;
    d    :array[0..10010] of longint;
    l,c    :array[1..3] of longint;
    x,y    :longint;
    n    :longint;
procedure swap(var aa,bb:longint);
var
    tt:longint;
begin
    tt:=aa;
    aa:=bb;
    bb:=tt;
end;
procedure init;
var
    i:longint;
begin
    for i:=1 to 3 do
        read(l[i]);
    for i:=1 to 3 do
        read(c[i]);
    readln;
    readln(n);
    readln(x,y);
    if x>y then
        swap(x,y);
    d[1]:=0;
    for i:=2 to n do
        readln(d[i]);
end;
procedure main;
var
    i,j:longint;
begin
    fillchar(f,sizeof(f),63);
    f[x]:=0;
    for i:=x+1 to y do
    begin
        for j:=i-1 downto x do
        begin
            if d[i]-d[j]>l[3] then
                break;
            if (d[i]-d[j]<=l[1])and(f[j]+c[1]<f[i]) then
                f[i]:=f[j]+c[1];
            if (d[i]-d[j]<=l[2])and(f[j]+c[2]<f[i]) then
                f[i]:=f[j]+c[2];
            if (d[i]-d[j]<=l[3])and(f[j]+c[3]<f[i]) then
                f[i]:=f[j]+c[3];
        end;
    end;
    writeln(f[y]);
end;
begin
    init;
    main;
end.

本来这道题O(n^2)算法过不了，但是适当break也水过了，poj马上100道了，等完成最后一道在、再来写线段树优化的程序吧。