P1426 小鱼会有危险吗

P1426 小鱼会有危险吗

题目描述

有一次，小鱼要从A处沿直线往右边游，小鱼第一秒可以游7米，从第二秒开始每秒游的距离只有前一秒的98%。有个极其邪恶的猎人在距离A处右边s米的地方，安装了一个隐蔽的探测器，探测器左右x米之内是探测范围。一旦小鱼进入探测器的范围，探测器就会在这一秒结束时把信号传递给那个猎人，猎人在一秒后就要对探测器范围内的水域进行抓捕，这时如果小鱼还在这范围内就危险了。也就是说小鱼一旦进入探测器范围，如果能在下1秒的时间内马上游出探测器的范围，还是安全的。现在给出s和x的数据，请你判断小鱼会不会有危险？如果有危险输出'y'，没有危险输出'n'。

//感谢黄小U饮品完善题意

输入输出格式

输入格式：

一行内输入两个实数，用空格分隔，表示s和x。均不大于100

输出格式：

一行内输出'y'或者'n'表示小鱼是否会有危险。

输入输出样例

输入样例#1：

14 1

输出样例#1：

n

var

s,x,t,j,n:real;

begin

read(s,x) ;

n:= 7 ;//第一秒可以游7米

while j<=s-x do//没游到探测其范围时就一直游

begin

j:=j+n;

n:=n* 0.98 ;//从第二秒开始每秒游的距离只有前一秒的98%

if j>=s-x then//s-x为探测器的左边的边界（s-x>=0），

if s-x>= 0 then t:=j-s-x+n//总路程-起点到探测器边界的距离（j可能进入探测器范围内了）-探测器范围+当前一秒游多少米

else t:=n;//当探测器范围大于右边s米时，直接游算了...

end;

if t>x* 2 thenwriteln('n')//大于探测器范围=逃出

elsewriteln('y') ;//反之

end.