讨论 / 帮帮忙 牛人们
hhy8926351 2012-07-30 05:26:00
点我顶贴 收藏 删除
program ds;

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点 说是输出位数不对

#1 sasaseee@2008-07-01 00:21:00
回复 删除
在write(n1-n2+1:0:0)

中改为round(n1-n2+1:0:0)

#2 hhy8926351@2008-07-01 22:37:00
回复 删除
不管用帮帮我吧
#3 Sherry@2008-07-04 19:57:00
回复 删除
const

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.

#4 zhouyi@2011-10-29 00:18:00
回复 删除
自己做,别看别人的,别指望别人。要是这是考试咋办?自己做,不然就没意义了,那做它干吗?看别人,指望别人有啥好处?不就是个排名吗?我排名不高,但我诚实守信!!!!
#5 zzqq2199@2012-07-30 00:13:00
回复 删除
时间???Orz...

这个发表时间很奇怪诶。

#6 王昱炜@2012-07-30 05:16:00
回复 删除
额……

对啊,

大家看一下,发表时间是2008-7-5 10:57:00

但是1楼的发表时间是2008-7-1 15:21:00

看清楚了!

一个是7月5日,

一个是7月1日,

这难道是rqnoj的bug?

#7 王昱炜@2012-07-30 05:16:00
回复 删除
额……

对啊,

大家看一下,发表时间是2008-7-5 10:57:00

但是1楼的发表时间是2008-7-1 15:21:00

看清楚了!

一个是7月5日,

一个是7月1日,

这难道是rqnoj的bug?

#8 王昱炜@2012-07-30 05:17:00
回复 删除
额……

对啊,

大家看一下,发表时间是2008-7-5 10:57:00

但是1楼的发表时间是2008-7-1 15:21:00

看清楚了!

一个是7月5日,

一个是7月1日,

这难道是rqnoj的bug?

#9 王昱炜@2012-07-30 05:17:00
回复 删除
不好意思

机子卡了,发了2遍

#10 王昱炜@2012-07-30 05:26:00
回复 删除
额……

对啊,

大家看一下,发表时间是2008-7-5 10:57:00

但是1楼的发表时间是2008-7-1 15:21:00

看清楚了!

一个是7月5日,

一个是7月1日,

这难道是rqnoj的bug?

查看更多回复
提交回复