一元三次方程求解

题目

https://www.luogu.com.cn/problem/P1024

思路

模拟

代码

var
 x,a,b,c,d:real;
 i:longint;
begin
 readln(a,b,c,d);
 for i:=-1000000 to 1000000 do
  begin
   x:=i/10000;
   if abs(a*x*x*x+b*sqr(x)+c*x+d)<=0.0001 then write(x:0:2,' ');
  end;
end.