hhy8926351 2008-07-02 20:56:00
点我顶贴
收藏
删除
测试数据是10 10000 1000 1000 2 9999
答案是1150 为什么我的是150
大牛给我讲下 1150是怎么算出来的
最好附上你的程序
#1 000wang@2008-07-02 03:08:00
2092
回复
删除
没看你的程序,你自己对照一下我的程序吧!
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.