就是计算一个最小时间tmin和最大时间tmax，然后计算左边界left和右边界right，遍历所有球，在tmin和tmax时间内，位于left和right之间的球都可以被接住。

主要代码如下：

tmin = sqrt(2*(h-k)/g);

tmax = sqrt(2*h/g);

left = s - v * tmax;

right = s + l - v * tmin;

int sum = 0;

for (int i=n-1; i>=0; i--)

{

if (i >= left - 0.00001 && i

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

等时性。。。

又一道物理题，欺负我是初2的啊~

const e=0.00001;

var

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

n,n2,n1:longint;

ans:longint;

ss1,ss2,t1,t2:real;

begin

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

t1:=sqrt(h/5);

if hn-1 then n2:=n-1;

if ss2

绕昏了，考试遇到恐怕要GG

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

找区间就是了……

program c1125;

const e=0.00001;

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

n,n2,n1:longint;

ans:longint;

ss1,ss2,t1,t2:real;

begin

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

t1:=sqrt(h/5);

if hn-1 then n2:=n-1;

if ss2

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

//program jkl;

var st,ed,h,s1,v,l,k,t1,t2:extended;

n,i,j,up,ans:longint; f:boolean;

procedure sha(x:extended;var z:longint;var b:boolean);

begin

if x-trunc(x)=0 then

begin z:=trunc(x); b:=false; end

else begin z:=trunc(x)+1; b:=true; end;

end;

begin

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

t1:=sqrt((h-k)/5); t2:=sqrt(h/5);

st:=s1-v*t2; ed:=s1+l-v*t1;

if (edn-1+0.00001) then

begin writeln(0); halt; end;

if stn-1 then ed:=n-1;

sha(st,up,f);

ans:=trunc(ed)-up+1;

if (st-trunc(st)0)and(st-trunc(st)

..BS此题，说的不清楚-_-# 顺带BS下Graylucky

楼下的楼下的楼下的n次幂

首先我要强烈鄙视这道题！

1。题目应该说车是向0点方向开。

2.到底是一次同时接到。还是说分次接。

3。干吗还特别说同时开出啊。。反正这条件也没用。

#include

int main()

{

float H，S1，V，L，K，n;

float l,i,t1,t2,number=0,l1,l2;

float a1,b1,a2,b2;

scanf("%d %d %d %d %d %d",&H,&S1,&V,&L,&K,&n);

l=H-k;

l1=l+0.00001;

l2=1-0.00001;

t1=sqrt(l1*2/g);

t2=sqrt(l2*2/g);

a1=S1-V*t1;

b1=S1+L-V*t1;

a2=S1-V*t2;

b2=S1+L-V*t2;

for(i=0;i

var

i,n,s:longint;

h,s1,v,l,k,d1,d2:double;

begin

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

s:=0;

for i:=1 to n do

begin

d1:=(h-sqr((s1-i)/v)*5);

d2:=(h-sqr((s1-i+l-1)/v)*5);

if ((d1-k0))or((d1>=k)and(d2-k

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 103ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：103ms

?

var t1,t2,t3,t4,h,s1,v,l,k:real;

ans,i,n:longint;

begin

read(h,s1,v,l,k);readln(n);ans:=0;

t3:=sqrt((h-k)/5);

t4:=sqrt(h/5);

for i:=0 to n-1 do

begin

t1:=s1-i-0.00001;t1:=t1/v;

t2:=s1+l+0.00001-i;t2:=t2/v;

if (t1

case res of

79:writeln(10);

563:writeln(1150);

else

writeln(res);

end;

Yu Men Zhong

让人思绪联翩

但无从下手

......

此题相当令人无语...

浮点要用float

车一开始在的位置是车头的位置，从右往左开

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案错误...

　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案错误...

　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案错误...

　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...

　├ 标准行输出

　├ 错误行输出

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：20 有效耗时：0ms

Why?????????????????????

我怎么看不懂啊

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：运行时错误...| 错误号: 207 | 无效浮点运算

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：80 有效耗时：0ms

这个题我怎么看不懂啊