const

g=10;

e=0.00001;

var

H,S1,V,L,K :real;

n,i :longint;

t1,t2 :real;

left,right :real;

ans :longint;

begin

readln(H,S1,V,L,K,n);

t1:=sqrt(2*(H+e)/g);

t2:=sqrt(2*(H-K+e)/g);

left:=S1-V*t1;

if leftn-1 then right:=n-1;

for i:=0 to n-1 do

if (i>=left)and(i

17行

编译通过...

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

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

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

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

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

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

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

除了算起来比较恶心人以外……其他都挺水！

龌龊题

编译通过...

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

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

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

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

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

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

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

program p1125(input,output);

var t,d,t1,d1,h,s1,v,l,k:real;

i,zs,n:longint;

begin

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

h:=h-k;

zs:=0;

for i:=0 to n-1 do

begin

t1:=(s1-i+l)/v;

d1:=1/2*10*(t1*t1);

t:=(s1-i)/v;

d:=1/2*10*(t*t);

if ((h-d)>=0-k-0.5) and ((h-d1)

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

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

s2:=s1-(t1*v)+l+0.00001;

s3:=s1-(t2*v)-0.00001;

取整无意义，直接从0到n循环看是不是在[s3，s2]里头好了

编译通过...

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

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

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

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

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

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

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

一点点物理知识加上清晰的思路，这道题真的很简单

这题真是阴啊

program P1125(input,output);

const

e=0.00001;

g=10;

var

n:longint;

left,right,min,max,l,h,s,v,k:real;

begin

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

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

max:=sqrt(h/g*2);

left:=s-v*max;

right:=trunc(s+l-v*min+e);

if left-e=trunc(left-e) then

　　left:=trunc(left-e)

else

　　left:=trunc(left-e)+1;

if leftn-1 then right:=n-1;

if left>right then

　　writeln(0)

else

　　writeln(right-left+1:0:0);

end.

谁能教教我物理啊？

program p1125;

var

h,s1,v,l,k,t1,t2,left,right:real;

n,res,i:longint;

procedure init;

begin

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

res:=0;

end;

procedure doit;

begin

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

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

for i:=0 to n-1 do

begin

left:=(s1-i)/v;

right:=(s1+l-i)/v;

if (t1=left-0.00001)

then res:=res+1;

end;

end;

procedure outit;

begin

writeln(res);

end;

begin

init;

doit;

outit;

end.

自己要画个图图就OK了.....

编译通过...

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

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

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

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

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

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

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

{$n+}

var h,s1,v,l,k,m:extended;

t0,t1,t2,t3:extended;

g,s0,i,n:longint;

begin

s0:=0;

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

g:=10;

t0:=sqrt(2*h/g);

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

for i:=0 to n-1 do

begin

t2:=(s1-i)/v;

t3:=(s1-i+l)/v;

if (t0>=t2-0.00001)and(t1

...明显欺负人物理不好

发现我连这种题目也不会做……（数学学的有问题啊……）

抄了楼下的程序……

解释楼下的程序

program P1125;

const

e=0.00001;

g=10;

var

n:longint;

left,right,min,max,l,h,s,v,k:real;

begin

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

min:=sqrt((h-k)/g*2);{算能接住的最小值}

max:=sqrt(h/g*2);{算能接住的最大值}

left:=s-v*max;

right:=trunc(s+l-v*min+e);

if left-e=trunc(left-e) then{是整数就剪去}

　　left:=trunc(left-e)

else

　　left:=trunc(left-e)+1;{不然就进1}

if leftn-1 then right:=n-1;

if left>right then{看看有没有区间}

　　writeln(0)

else

　　writeln(right-left+1:0:0);{算能接住多少个球}

end.

program P1125(input,output);

const

e=0.00001;

g=10;

var

n:longint;

left,right,min,max,l,h,s,v,k:real;

begin

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

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

max:=sqrt(h/g*2);

left:=s-v*max;

right:=trunc(s+l-v*min+e);

if left-e=trunc(left-e) then

left:=trunc(left-e)

else

left:=trunc(left-e)+1;

if leftn-1 then right:=n-1;

if left>right then

writeln(0)

else

writeln(right-left+1:0:0);

end.

交了3次……终于对了 不手推直接写不行啊……

double h,s1,v,l,k,n;

cin>>h>>s1>>v>>l>>k>>n;

double t1=sqrt((h-k)/5);

double t2=sqrt ((h)/5);

double l1=s1-v*t2;

double l2=s1-v*t1+l;

int m=0;

for (int i=0;i=l1-0.00001 && i

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

tmax = sqrt(2*h/g);

left = s - v * tmax - 0.00001;

right = s + l - v * tmin + 0.00001;

int sum = 0;

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

{

if (i >= left && i