竟然枚举就过?

var

a,b,c,d,x:real;

i,t:integer;

function f(x:real):real;

begin

f:=((a*x+b)*x+c)*x+d;

end;

begin

read(a,b,c,d);

t:=0;

for i:=-10000 to 10000 do

begin

x:=i/100;

if (f(x)>-0.0001) and (f(x)3 then exit;

write(x:0:2,' ');

end;

end;

end.

AC!

若精度再高就不太行了吧

6 条评论

  • 1

信息

ID
1116
难度
5
分类
搜索 | 枚举 点击显示
标签
递交数
7786
已通过
2832
通过率
36%
被复制
14
上传者