讨论 / 自由落体 数据不理解
hhy8926351 2008-07-02 20:56:00
点我顶贴 收藏 删除
测试数据是10 10000 1000 1000 2 9999

答案是1150 为什么我的是150

大牛给我讲下 1150是怎么算出来的

最好附上你的程序

#1 000wang@2008-07-02 03:08:00
回复 删除
没看你的程序,你自己对照一下我的程序吧!

var

h,s1,v,l,k:real;

n,left,right:longInt;

t1,t2,x1,x2:real;

begin

readln(h,s1,v,l,k,n);

If h<k then

t1:=0

else t1:=sqrt(2*(h-k)/10);

t2:=sqrt(2*h/10);

x1:=s1-v*t2;

x2:=s1-v*t1+l;

If x1<0 then x1:=0;

If x2>n-1 then x2:=n-1;

If x1-trunc(x1)<=0.00001 then left:=trunc(x1) else left:=trunc(x1)+1;

If trunc(x2)+1-x2<=0.00001 then right:=trunc(x2)+1 else right:=trunc(x2);

If right<left then writeln(0) else write(right-left+1);

end.

#2 hhy8926351@2008-07-02 20:56:00
回复 删除
谢了 车长忘记了
查看更多回复
提交回复