暴力摩托

[问题描述]

晚会上大家在玩一款“暴力摩托”的游戏，它拥有非常逼真的画面和音响效果，如疾驰而过的汽车呼啸声，摩托车的引擎声和转弯时轮胎与地面摩擦而产生的声音。而且它在游戏中加入了对抗成份，比赛中你可以使用拳、脚去干扰对方，使其落后于你，是不是很卑鄙啊? 游戏中千万不能手下留情，因为对手会主动攻击你。如果遇到开摩托车的警察，虽然也可以对他踢上一脚，但可得小心点呀，万一被他们捉住了，那就 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