比赛代码 - COGS

比赛	啦啦啦,一星期两次的水题赛	评测结果	AAAAA
题目名称	自由落体	最终得分	100
用户昵称	曾庆涛	运行时间	0.000 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-10-28 18:48:41

显示代码纯文本

var h,s,v,l,k,t,t1,g:real;
n,i,total:longint;
begin
assign(input,'freefaller.in');
reset(input);
assign(output,'freefaller.out');
rewrite(output);
read(h,s,v,l,k,n);
g:=10;
t:=sqrt((h-k)*2/g);
t1:=sqrt(h*2/g);
total:=0;
for i:=n-1 downto 0 do
if ((s-v*t-i)/v<=t1-t+0.00001) and (s+l-v*t>=i) then inc(total);
write(total);
close(output);
close(input);
end.