pascal 枚举法 一元三次方程求解、的一些问题...{$N+}vark:integer;a,b,c,d,x:extended; 扩展实数function f(x:extended):extended; {计算ax3+bx2+cx+d的值}beginf:=((a*x+b)*x+c)*x+d;end;beginread(a,b,c,d);for k:=-10000 to 10000 dobegin
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/24 12:53:06
pascal 枚举法 一元三次方程求解、的一些问题...{$N+}vark:integer;a,b,c,d,x:extended; 扩展实数function f(x:extended):extended; {计算ax3+bx2+cx+d的值}beginf:=((a*x+b)*x+c)*x+d;end;beginread(a,b,c,d);for k:=-10000 to 10000 dobegin
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)
pascal 枚举法 一元三次方程求解、的一些问题...{$N+}vark:integer;a,b,c,d,x:extended; 扩展实数function f(x:extended):extended; {计算ax3+bx2+cx+d的值}beginf:=((a*x+b)*x+c)*x+d;end;beginread(a,b,c,d);for k:=-10000 to 10000 dobegin
第一,用F是为了让你不要搞混,如果错了方便修改
第二 ..{$N+} 是用{}括起来的,在pascal里不进行运行,你用pascal界面打开会发现字的颜色是灰的,这说明了这只起到一个标示作用,去掉也可以
第三 program是用来定义文件名的,在pascal书里有,可以去掉,直接打var