- 一元三次方程求解
- 2009-07-03 12:52:26 @
var
a,b,c,d,x:real;
i,t:integer;
function f(x:real):real;
begin
f:=((a*x+b)*x+c)*x+d;
end;
begin
read(a,b,c,d);
t:=0;
for i:=-10000 to 10000 do
begin
x:=i/100;
if (f(x)>-0.0001) and (f(x)3 then exit;
write(x:0:2,' ');
end;
end;
end.
AC!
若精度再高就不太行了吧
6 条评论
-
douB LV 5 @ 2014-10-21 18:38:05
orz
-
2013-12-14 14:37:00@
其实就是枚举
-
2013-10-12 22:14:49@
本来就是枚举嘛……
-
2009-09-04 18:26:07@
= =!
可以给我讲讲你的思路么~~~
-
2009-07-03 13:19:45@
本来就是枚举嘛……
-
2009-07-03 13:11:33@
本来就可以……
- 1