jzoj 1348. 【2011.12.17普及模拟】越野跑

1348. 【2011.12.17普及模拟】越野跑(racing) 
(File IO): input:racing.in output:racing.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

    为了能在下一次跑步比赛中有好的发挥，贝茜在一条山路上开始了她的训练。贝茜希望能在每次训练中跑得尽可能远，不过她也知道农场中的一条规定：奶牛独自进山的时间不得超过M秒(1 <= M <= 10,000,000)。

    整条山路被贝茜划分成T个长度相同的小段(1 <= T <= 100,000)，并且，贝茜用S_i表示第i个小段的路况。S_i为u，f，d这3个字母之一，它们分别表示第i个小段是上坡、平地，或是下坡。

    贝茜要花U秒(1 <= U <= 100)才能跑完一段上坡路，跑完一段平地的耗时是F秒(1 <= F <= 100)，跑完一段下坡路要花D秒(1 <= D <= 100)。注意，沿山路原路返回的时候，原本是上坡路的路段变成了下坡路，原本是下坡路的路段变成了上坡路。

    贝茜想知道，在能按时返回农场的前提下，她最多能在这条山路上跑多远。

输入

第1行: 5个用空格隔开的整数：M，T，U，F，以及D

第2..T+1行: 第i+1行为1个字母S_i，描述了第i段山路的路况

输出

第1行: 输出1个整数，为贝茜在按时回到农场的前提下，最多能跑到多远

样例输入

13 5 3 2 1
u
f
u
d
f
 

样例输出

3

数据范围限制

提示

【 样例数据说明】

    贝茜跑步的最大耗时为13秒（这么短...），她跑步的山路一共被划成5段。贝茜跑完一段上坡路的耗时为3秒，平地为2秒，下坡路为1秒。山路各段的走向如下图所示：

 _/\_

/

  贝茜跑完山路的前3段，然后返回，总耗时为3 + 2 + 3 + 1 + 2 + 1 = 12秒，只比她能在外面呆的时限少1秒。如果她跑得更远，就无法按时回到农场。

边读入变判断，没什么好说的 代码如下：

var
 m,t,u,f,d,sum:longint;

procedure init;
var i:longint;  c:char;
begin
 readln(m,t,u,f,d);
 for i:=1 to t do
  begin
   readln(c);
   if c='u' then sum:=sum+u+d;
   if c='f' then sum:=sum+2*f;
   if c='d' then sum:=sum+u+d;
   if sum>m then break;
  end;
 writeln(i-1);
end;

begin
 assign(input,'racing.in'); reset(input);
 assign(output,'racing.out'); rewrite(output);
 init;
 close(input); close(output);
end.