二分法解方程 实验中
Program biss; //OIer们注意了 程序名不能和函数名一样var a,b,e:real;
function f(x:real):real;
var a,b,c:real;
begin
f:=a*x^2+b*x+c;
end;
function bis(a,b,e:real):real;
var c:real;
begin
c:=(a+b)/2;
if ((f(a)*f(b)=0)and (abs(a-b)<e)) or (f(a)=0) then bis:=a
else
begin
if f(a)*f(c)<0 then bis(a,c,e);
if f(c)*f(b)<0 then bis(c,b,e);
end;
begin
readln(a,b,e);
bis(a,b,e);
end. 你太水了……似乎函数名字和程序的名字不可以一样把…… 那个biss就行了
页:
[1]