点这里查看
讨论 / easy! 10行
wzj402 2013-07-08 19:58:00
点我顶贴 收藏 删除
var

i:longint;

x,a,b,d,c:real;

begin

readln(a,b,c,d);

for i:=-10000 to 10000 do begin

x:=i/100;

if abs(a*x*x*x+b*x*x+c*x+d)<0.01 then write(x:0:2,' ');

end;

end.

#1 刘泽寅@2013-07-08 19:57:00
回复 删除
小伙错了吧？？？

精确到0.01不是说解精确到0.01

#2 刘泽寅@2013-07-08 19:58:00
回复 删除
说错了，不是函数值精确到0.01
查看更多回复
提交回复