2001年分区联赛提高组之一 一元三次方程求解 1015

2001年分区联赛提高组之一 一元三次方程求解

Time Limit:1000MS  Memory Limit:65536K
Total Submit:171 Accepted:108

Description

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

Input

Output

Sample Input

1   -5   -4   20

Sample Output

-2.00   2.00   5.00

Source

elba

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.