本文介绍了一个使用Delphi编写的程序，通过遍历浮点数的方法寻找多项式方程ax³ + bx² + cx + d = 0的近似实数解。程序采用循环结构，对x进行从-1000到1000的遍历，并通过判断多项式的绝对值是否小于等于0.0001来确定解。
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.
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.
扫一扫
614
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
