
- UID
- 1
- 帖子
- 1052
- 精华
- 3
- 积分
- 543
- 性别
- 男
- 来自
- 伟大的中华人民共和国
|
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.
|
|