作业帮pascal 枚举法 一元三次方程求解、的一些问题...
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/29 04:05:48
pascal 枚举法 一元三次方程求解、的一些问题...
{$N+}
var
k:integer;
a,b,c,d,x:extended; 扩展实数
function f(x:extended):extended; {计算ax3+bx2+cx+d的值}
begin
f:=((a*x+b)*x+c)*x+d;
end;
begin
read(a,b,c,d);
for k:=-10000 to 10000 do
begin
x:=k/100;
if (f(x-0.005)*f(x+0.005)
{$N+}
var
k:integer;
a,b,c,d,x:extended; 扩展实数
function f(x:extended):extended; {计算ax3+bx2+cx+d的值}
begin
f:=((a*x+b)*x+c)*x+d;
end;
begin
read(a,b,c,d);
for k:=-10000 to 10000 do
begin
x:=k/100;
if (f(x-0.005)*f(x+0.005)
第一,用F是为了让你不要搞混,如果错了方便修改
第二 ..{$N+} 是用{}括起来的,在pascal里不进行运行,你用pascal界面打开会发现字的颜色是灰的,这说明了这只起到一个标示作用,去掉也可以
第三 program是用来定义文件名的,在pascal书里有,可以去掉,直接打va
第二 ..{$N+} 是用{}括起来的,在pascal里不进行运行,你用pascal界面打开会发现字的颜色是灰的,这说明了这只起到一个标示作用,去掉也可以
第三 program是用来定义文件名的,在pascal书里有,可以去掉,直接打va