var v,t1,t2,s1,l,k,n,h,n1,n2:real;
begin
read(k,h,s1,l,n,v);
t1:=sqrt(2*(h-k)/10);
t2:=sqrt(2*h/10);
n1:=trunc(s1-t1*v+0.00001);
n2:=round(s1-t2*v-0.00001+0.5);
if n1>n-1 then n1:=n-1;
if n2<0 then n2:=0;
if n1>=n2 then write(n1-n2+1:0:0)
else write(0);
end.
哪里错了 过6点 说是输出位数不对
g=10;
e=1E-5;
var H,s1,v,l,k,t1,t2:real;
n2,n1,num,n:integer;
begin
readln(h,s1,v,l,k,n);num:=-1;
t1:=sqrt(2*h/g);
if h<=k+e then t2:=0 else t2:=sqrt(2*(h-k-e)/g);
if s1-v*t2+L+e<0
then num:=0
else n2:=trunc(s1-v*t2+L+e);
if n2>n-1 then n2:=n-1;
if s1-v*t1-e<=0
then n1:=0
else if s1-v*t1-e>n-1
then num:=0
else if (s1-v*t1-e)=trunc(s1-v*t1-e)
then n1:=trunc(s1-v*t1-e)
else n1:=trunc(s1-v*t1-e)+1;
if num=-1 then num:=n2-n1+1;
writeln(num);
end.
对啊,
大家看一下,发表时间是2008-7-5 10:57:00
但是1楼的发表时间是2008-7-1 15:21:00
看清楚了!
一个是7月5日,
一个是7月1日,
这难道是rqnoj的bug?
对啊,
大家看一下,发表时间是2008-7-5 10:57:00
但是1楼的发表时间是2008-7-1 15:21:00
看清楚了!
一个是7月5日,
一个是7月1日,
这难道是rqnoj的bug?
对啊,
大家看一下,发表时间是2008-7-5 10:57:00
但是1楼的发表时间是2008-7-1 15:21:00
看清楚了!
一个是7月5日,
一个是7月1日,
这难道是rqnoj的bug?
对啊,
大家看一下,发表时间是2008-7-5 10:57:00
但是1楼的发表时间是2008-7-1 15:21:00
看清楚了!
一个是7月5日,
一个是7月1日,
这难道是rqnoj的bug?