越野跑

【题目描述】
为了能在下一次跑步比赛中有好的发挥，贝茜在一条山路上开始了她的训练。贝茜希望能在每次训练中跑得尽可能远，不过她也知道农场中的一条规定：奶牛独自进山的时间不得超过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段山路的路况
【输出格式】
贝茜在按时回到农场的前提下，最多能跑到多远
【样例输入】
13 5 3 2 1
u
f
u
d
f
【样例输出】
3
【样例说明】
贝茜跑完山路的前3段，然后返回，总耗时为3 + 2 + 3 + 1 + 2 + 1 = 12秒，只比她能在外面呆的时限少1秒。如果她跑得更远，就无法按时回到农场。
【分析】
设f[i]表示跑到第i个小段的耗时，因为起点只能为第1个小段，所以f[i]只能被f[i-1]修改。不难得到递推式：f[i]=f[i-1]+当前路况所耗时间

var  i,s,m,t,u,f,d:longint;    a:char;begin    readln(m,t,u,f,d);    s:=0;    for i:=1 to t do begin        readln(a);        case a of            'u':s:=s+u+d;            'f':s:=s+2*f;            'd':s:=s+u+d;//别忘了奶牛还要回来呢        end;    if s>=m then break;//时间超了就跳掉    end;    if s=m then writeln(i);//时间正好    if s>m then writeln(i-1);end.