P1024 一元三次方程求解

这数据范围也是水的可以
看到dalao们都是用二分，其实可以直接枚举解。

var i,j,k:longint;
    m,n:longint;
    a,b,c,d:real;
    x,y:real;
begin
  read(a,b,c,d);
  for i:=-100000 to 100000 do 
  begin
  x:=i/1000; //解
  if abs(a*x*x*x+b*x*x+c*x+d)<0.0001 {判断误差} then write(x:0:2,' ');//当为解时输出
  end;
end.

简单，轻松，方便，还不用解释AC