纯属娱乐734 2014-02-21 05:15:20
点我顶贴
收藏
删除
program j2;
var n,i,a:integer; h,s1,v,l,k, t:real;
begin
readln(h,s1,v,l,k,n);
a:=0; t:=sqrt(h/5);
repeat for i:=n-1 downto 0 do begin
if (h*h-k*h-10*t*t*h+25*t*t*t*t+5*t*t*k+k*k/4+s1*s1+l*s1-2*v*t*s1-2*s1*i+l*l/4-l*v*t-l*i+v*v*t*t+2*v*t*i+i*i<l*l/4+k*k/4+0.00001)
then inc(a);
end;
until i=0;
writeln(a) ;
end.
真心不会做 有没有数学高手帮我看看应该怎样缩小范围 我只能把他当圆做了