暴力摩托

[问题描述]

晚会上大家在玩一款“暴力摩托”的游戏，它拥有非常逼真的画面和音响效果，如疾驰而过的汽车呼啸声，摩托车的引擎声和转弯时轮胎与地面摩擦而产生的声音。而且它在游戏中加入了对抗成份，比赛中你可以使用拳、脚去干扰对方，使其落后于你，是不是很卑鄙啊? 游戏中千万不能手下留情，因为对手会主动攻击你。如果遇到开摩托车的警察，虽然也可以对他踢上一脚，但可得小心点呀，万一被他们捉住了，那就 GAME OVER 啦!
当然了，车子总是要加油的咯，已知赛道长S公里（S≤10000整数，且为10的倍数），赛车的油耗Q=1，即1公里路耗1个单位的油。Q不变，赛车的油箱为无穷大，同时在沿途的任何地方都可以加油。 约定，每次加油的数量为整数，且为10的倍数，赛车的速度与赛车加油后的总油量有关。其关系如下表列出：

同时，汽车每加油一次需要耗费T分钟（T<=100不论加油多少，开始时的加油不计时间）
当S，T给出之后，选择一个最优的加油方案。使汽车以最少时间跑完全程。
例如：当S=40，T=6（分钟），加油的方案有许多种，列出一些：
1）起点加油40，用时40/75≈0.53小时
2）起点加油20，中途加20，用时20/90+20/90+6/60（化为小时）≈ 0.54 小时
 [输入文件]
 一行，为两个整数S、T。 
 [输出文件]
 输出一行，为最少用时（保留二位小数）
 [输入样例]
 40 6
 [输出样例]

解题思路

DP。
我们发现前面怎么走的与后面无关，那么我们可以用a【i】表示行驶i*10公里时所用的最短时间。分别搜索每个阶段a【i】的最小用时，那么a【n】即答案

代码

var s,i,j,t:longint;
    a:array[1..1000]of real;
    m,min:real;
begin
  assign(input,'car.in');
  assign(output,'car.out');
  reset(input);
  rewrite(output);
  readln(s,t);
  for i:=1 to s div 10 do  //每10公里为一个阶段
   begin
     case i of
       1:min:=10/100;    //计算从0开始到i*10距离如果不加油，可达的最小时间，以此为当前阶段a【i】的初始值min，当前阶段将i*10看做终点
       2:min:=20/90;
       3:min:=30/80;
       4:min:=40/75;
       else min:=(i*10)/70;
       end;
     for j:=1 to i-1 do   //枚举每个可能加油的地方，测试如果在这里加1次油的话那以此向后到终点能否使时间减少，即寻找最优方案
       begin
         case (i-j) of   //（i-j）*10即从当前j*10到当前阶段终点i*10的距离
           1:m:=10/100;
           2:m:=20/90;
           3:m:=30/80;
           4:m:=40/75;
           else m:=((i-j)*10)/70;
           end;
         m:=m+t/60;
         if m+a[j]<min then min:=m+a[j];  //        比较，看                                                                                                                                                                                           能否使当前阶段a【i】的总时间减少
       end;
     a[i]:=min;
   end;
  write(a[s div 10]:0:2);
  close(input);
  close(output);
end.

哪里都找不到测试OJ。。。。。。。。so也不知道A不A