SSL JudgeOnline 1015——一元三次方程求解

Description

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

Input

Output

Sample Input

1 -5 -4 20
Sample Output

-2.00 2.00 5.00

---

这是一题分治

我们将根的可能的范围搜一遍，如果可以直接输出，因为只有一解。

我们要使方程等于0

首先，我们每一循环确定两个精度值，再判断如过将这两个代入方程后相乘是否小于0，如果可以在判断x1是否为0.如果为0直接输出。

---

代码如下：

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.