暴力摩托

[问题描述]

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

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览