您的位置:首页 > 其它

暴力摩托

2015-10-15 09:33 232 查看

[问题描述]

晚会上大家在玩一款“暴力摩托”的游戏,它拥有非常逼真的画面和音响效果,如疾驰而过的汽车呼啸声,摩托车的引擎声和转弯时轮胎与地面摩擦而产生的声音。而且它在游戏中加入了对抗成份,比赛中你可以使用拳、脚去干扰对方,使其落后于你,是不是很卑鄙啊? 游戏中千万不能手下留情,因为对手会主动攻击你。如果遇到开摩托车的警察,虽然也可以对他踢上一脚,但可得小心点呀,万一被他们捉住了,那就 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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: