海底高铁

【题目描述】
一条铁路经过N个城市，每个城市都有一个站。不过，由于各个城市之间不能协调好，于是乘车每经过两个相邻的城市之间（方向不限），必须单独购买这一小段的车票。第i段铁路连接了城市i和城市i+1(1<=i<=N-1)。如果搭乘的比较远，需要购买多张车票。第i段铁路购买纸质单程票需要Ai博艾元。
虽然一些事情没有协调好，各段铁路公司也为了方便乘客，推出了IC卡。对于第i段铁路，需要花Ci博艾元的工本费购买一张IC卡，然后乘坐这段铁路一次就只要扣Bi(Bi<=Ai-1)元。IC卡可以提前购买，有钱就可以从网上买得到，而不需要亲自去对应的城市购买。工本费不能退，也不能购买车票。每张卡都可以充值任意数额。对于第i段铁路的IC卡，无法乘坐别的铁路的车。
Uim现在需要出差，要去M个城市，从城市P1出发分别按照P1,P2,P3…PM的顺序访问各个城市，可能会多次访问一个城市，且相邻访问的城市位置不一定相邻，而且不会是同一个城市。
现在他希望知道，出差结束后，至少会花掉多少的钱，包括购买纸质车票、买卡和充值的总费用。
【输入格式】
第一行两个整数，N，M。
接下来一行，M个数字，表示Pi
接下来N-1行，表示第i段铁路的Ai,Bi,Ci
【输出格式】
一个整数，表示最少花费
【样例输入】
9 10
3 1 4 1 5 9 2 6 5 3
200 100 50
300 299 100
500 200 500
345 234 123
100 50 100
600 100 1
450 400 80
2 1 10
【样例输出】
6394
【说明】
2到3以及8到9买票，其余买卡。
对于30%数据 M=2
对于另外30%数据 N<=1000 ，M<=1000
对于100%的数据 M,N<=100000,Ai,Bi,Ci<=100000
【分析】

表示愤怒！月赛的时候就因为没有用qword用了猥琐的longint而只得了60！比赛结束后修改数据范围，就过了！

var
  way,a,b,c:array[0..100001]of qword;
    i,n,m,x,y:longint;
    ans:qword;//注意qword
procedure swap(var x,y:longint);
var tmp:longint;
begin
  tmp:=x;
    x:=y;
    y:=tmp;
end;
function min(x,y:qword):qword;//注意qword
begin
  if x<y then exit(x) else exit(y);
end;
begin
  readln(n,m);
    for i:=1 to m do read(a[i]);
    fillchar(way,sizeof(way),0);
    for i:=1 to m-1 do begin
        x:=a[i]; y:=a[i+1];
        if x>y then swap(x,y);
        inc(way[x]); dec(way[y]);
    end;
    x:=0;
    for i:=1 to n do begin
        x:=x+way[i];
        a[i]:=x;
    end;
    way:=a;
    fillchar(a,sizeof(a),0);
    ans:=0;
    for i:=1 to n-1 do begin
        read(a[i],b[i],c[i]);
        ans:=ans+min(a[i]*way[i],b[i]*way[i]+c[i]);//比较久行了
    end;
    write(ans);
end.

转载于:https://www.cnblogs.com/JRX2015U43/p/6533508.html