[NOIP2002]自由落体

NOIp2002提高组

题目描述

　　在高为 H 的天花板上有 n 个小球，体积不计，位置分别为 0，1，2，…．n-1。在地面上有一个小车（长为 L，高为 K，距原点距离为 S1）。已知小球下落距离计算公式为 d＝1/2*g*(t^2)，其中 g=10，t 为下落时间。地面上的小车以速度 V 前进。
　　如下图：

　　小车与所有小球同时开始运动，当小球距小车的距离 <= 0.00001 时，即认为小球被小车接受（小球落到地面后不能被接受）。
　　请你计算出小车能接受到多少个小球。

输入输出格式

输入格式：

键盘输人：
H，S1，V，L，K，n （l<=H，S1，V，L，K，n <=100000）

输出格式：

屏幕输出：
小车能接受到的小球个数。

输入输出样例

输入样例#1：

5.0 9.0 5.0 2.5 1.8 5

输出样例#1：

1

思路

　　一道“经典”的物理题，数据太水，不优化也可以全过，注意小球的0..n-1指的是他的位置，是要计算的。

　　说一下想出来的优化吧：

　　　　1.如果小球的位置超出了车刚开始的位置，则跳出循环。

　　　　2.小车太慢（即V<=Vmin）或太快（V>Vmax）时，一个球也接不到。

const ma=0.00001;  
var h,h1,s1,v,l,k,t:real;  
    n,i,ans:longint;  
begin  
    readln(h,s1,v,l,k,n);  
    ans:=0;  
    for i:=0 to n-1 do  
        begin  
            t:=(s1-i)/v;  
            h1:=5*t*t;  
            if h1>h+ma then continue;  
            t:=(s1-i+l+ma)/v;  
            h1:=5*t*t;  
            if h1<h-k-ma then continue;  
            inc(ans);  
        end;  
    writeln(ans);  
end.