jzxx2852观光公交

题目描述
风景迷人的小城 Y 市,拥有 n 个美丽的景点。由于慕名而来的游客越来越多,Y 市特意安排了一辆观光公交车,为游客提供更便捷的交通服务。观光公交车在第 0 分钟出现在 1 号景点,随后依次前往 2、3、4…n 号景点。从第 i 号景点开到第 i+1 号景点需要 Di 分钟。 任意时刻,公交车只能往前开,或在景点处等待。
设共有 m 个游客,每位游客需要乘车 1 次从一个景点到达另一个景点,第 i 位游客在 Ti 分钟来到景点 Ai,希望乘车前往景点 Bi(Ai 一个乘客的旅行时间,等于他到达目的地的时刻减去他来到出发地的时刻。因为只有一 辆观光车,有时候还要停下来等其他乘客,乘客们纷纷抱怨旅行时间太长了。于是聪明的司 机 ZZ 给公交车安装了 k 个氮气加速器,每使用一个加速器,可以使其中一个 Di 减 1。对于 同一个 Di 可以重复使用加速器,但是必须保证使用后 Di 大于等于 0。
那么 ZZ 该如何安排使用加速器,才能使所有乘客的旅行时间总和最小?

输入
第 1 行是 3 个整数 n, m, k,每两个整数之间用一个空格隔开。分别表示景点数、乘客数和氮气加速器个数。
第 2 行是 n-1 个整数,每两个整数之间用一个空格隔开,第 i 个数表示从第 i 个景点开往第 i+1 个景点所需要的时间,即 Di。
第 3 行至 m+2 行每行 3 个整数 Ti, Ai, Bi,每两个整数之间用一个空格隔开。第 i+2 行表示第 i 位乘客来到出发景点的时刻,出发的景点编号和到达的景点编号。

输出
共一行,包含一个整数,表示最小的总旅行时间。

样例
输入
3 3 2
1 4
0 1 3
1 1 2
5 2 3
输出
10

提示
【输入输出样例说明】
对D2使用2个加速器,从2号景点到3号景点时间变为2分钟。
公交车在第 1 分钟从 1 号景点出发,第 2 分钟到达 2 号景点,第 5 分钟从 2 号景点出发,第7分钟到达3号景点。
第 1 个旅客旅行时间 7-0 = 7 分钟。 第 2 个旅客旅行时间 2-1 = 1 分钟。 第 3 个旅客旅行时间 7-5 = 2 分钟。 总时间 7+1+2 = 10 分钟。

【数据范围】
对于 10%的数据,k=0;
对于 20%的数据,k=1;
对于40%的数据,2≤n≤50,1≤m≤1,000,0≤k≤20,0≤Di ≤10,0≤Ti ≤500;
对于 60%的数据,1 ≤ n ≤ 100,1 ≤ m ≤ 1,000,0 ≤ k ≤ 100,0 ≤ Di ≤ 100,0 ≤ Ti ≤ 10,000;
对于 100%的数据,1 ≤ n ≤ 1,000,1 ≤ m ≤ 10,000,0 ≤ k ≤ 100,000,0 ≤ Di ≤ 100,0 ≤ Ti ≤ 100,000。

传送门

满分代码:
program bus;
const maxn=10001;
var
    down,ans,late,t,a,b,p,d:array[0..maxn]of longint;
    n,m,k,i,j,l,r,daan:longint;
function max(x,y:longint):longint;
begin
      if x>y then exit(x) else exit(y);
end;
procedure reduce(l,r:longint);
var
    i,j,s:longint;
begin
      fillchar(p,sizeof(p),0);
      for i:=l to r do
      ans[i+1]:=max(ans[i],late[i])+d[i];
      i:=1;s:=0;
      while i<n do
      begin
           if d[i]>0 then
           begin
                j:=i;
                p[j]:=down[i+1];
                while ans[i+1]>late[i+1] do
                begin
                      inc(i);
                      p[j]:=p[j]+down[i+1];
                end;
                if p[j]>p[s] then s:=j;
           end;
           inc(i);
      end;
      if p[s]=0 then begin k:=0; exit; end;
      dec(d[s]);dec(k);
      l:=s;r:=n-1;
end;
begin
      read(n,m,k);
      for i:=1 to n-1 do
      read(d[i]);
      for i:=1 to m do
      begin
            readln(t[i],a[i],b[i]);
            inc(down[b[i]]);
            late[a[i]]:=max(late[a[i]],t[i]);
      end;
      l:=1;r:=n-1;
      while k>0 do
      reduce(l,r);
      for i:=1 to n-1 do
      ans[i+1]:=max(ans[i],late[i])+d[i];
      for i:=1 to m do
      inc(daan,ans[b[i]]-t[i]);
      write(daan);
end.

你可能感兴趣的:(Pascal,NOIP,pascal,jzxx)