猫盟政府门户 猫盟维基协会's Archiver

mys_721tx 发表于 2008-10-25 20:10

二分法解方程 实验中

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.

Hamster 发表于 2008-10-29 13:35

你太水了……似乎函数名字和程序的名字不可以一样把……

mys_721tx 发表于 2008-11-1 16:53

那个biss就行了

页: [1]

Powered by Discuz! Archiver 7.0.0  © 2001-2009 Comsenz Inc.