一元三次方程-ssl 1015

题意：ax^3+bx^2+c^x+d=0 这样的一个一元三次方程。给出该方程中各项的系数(a，b，c，d 均为实数)，并约定该方程存在三个不同实根(根的范围在-100至100之间)，且根与根之差的绝对值>=1。要求由小到大依次在同一行输出这三个实根(根与根之间留有空格)，并精确到小数点后2位。

分析：

运用枚举法，不断枚举几种情况，  x1:=(x-0.05)/100，x2:=(x+0.05)/100。

var

  x:longint;
  a,b,c,d,x1,x2:single;
  function f(x:single):single;
begin
  exit(a*x*x*x+b*x*x+c*x+d);
end;
begin
  readln(a,b,c,d);
  for x:=-10000 to 10000 do
  begin
      x1:=(x-0.05)/100;
      x2:=(x+0.05)/100;
      if (f(x1)*f(x2)<=0)or(f(x1)=0)then write(x/100:0:2,' ');
    end;
end.