返回列表 回复 发帖 免费斗地主赢30元充值卡

二分法解方程 实验中

相关搜索: 解方程, 二分法, 实验
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就行了
返回列表