您的位置：首页 > 其它

NOIP2011观光公交

2015-07-07 09:57 337 查看

var

ans,n,m,k,i:longint;

arrive,d,t,a,b,down,latest:array[0..10001] of longint;

function mmax(a,b:longint):longint;

begin

if a>b then exit(a)

else exit(b);

end;

procedure doit;

var

i,j,max,tip,pos:longint;

begin

for i:=2 to n do

arrive[i]:=mmax(arrive[i-1],latest[i-1])+d[i-1]; //求出每一站的到站时间,每用一次加速器，d[i]都会变化，arrive[i]也会变化，所以每次都要更新

// max(arrive[i-1],lastest[i-1])意思是找到应该发车的时间

pos:=0; //pos表示即将找到的要用加速器的站点位置

max:=0; //max加速器能作用人数的最大值

for i:=1 to n-1 do //枚举各个站点来找pos

if d[i]>0 then //保证行车时间>0

begin

tip:=0; //tip表示求每次加速器能作用的人数

for j:=i+1 to n do //从每个站的后面开始找tip

begin

tip:=tip+down[j];

if arrive[j]<=latest[j] then break; //如果不会影响后面了就停止条件是车到站之后还要等乘客或者乘客刚好到，

//因为使用加速器之后到达时间会变早，所以就算这次乘客刚到，

//在前面用了加速器之后也不会影响这一站之后的

end;

if tip>max then

begin

max:=tip; //max加速器能作用人数的最大值，在这一步求出

pos:=i; //记下最大作用站点的位置

end;

end;

dec(d[pos]); //在pos这个站点使用加速器

dec(k); //用了一个加速器，k-1

end;

begin

readln(n,m,k);

for i:=1 to n-1 do read(d[i]); //d[i]表示路程上消耗的时间

for i:=1 to m do

begin

readln(t[i],a[i],b[i]);

if latest[a[i]]<t[i] then latest[a[i]]:=t[i]; //latest[i]表示最后一个人到第i站的时间

inc(down[b[i]]); //down[i]表示第i站下车人数统计每站下车人数

end;

arrive[1]:=latest[1]; //arrive[i]表示最早到站时间这一步暂不明白有何用，看起来可以去掉

while k>0 do doit;

for i:=2 to n do

arrive[i]:=mmax(arrive[i-1],latest[i-1])+d[i-1];//更新一下最后用的那个加速器

ans:=0; //加速器用完了，现在开始求答案

for i:=1 to m do //一共m个人

ans:=ans+arrive[b[i]]-t[i]; //t[i]表示上车时间，b[i]是下车站点，arrive[b[i]]就是下车时间

writeln(ans);

end.

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航