I,n:integer;

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

for i:= 0 to StringGrid1.RowCount - 1 do;

StringGrid1.Rows[i].Clear();

StringGrid1.Cols[i].Clear();

end;

function F(x:real):real;

var

I , j : integer;

res, resultat : real;

begin

j:=n;

for i:=1 to n+1 do

begin

res:=mas[i]*power(x,j);

j:=j-1;

resultat:=resultat+res;

end;

Result:=resultat;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

A,B,E,X0,X1,X,Y,Y0,Y1,Z:real;

I:integer;

begin

A:=xp;

B:=xk;

E:=t;

X0:=A;

X1:=B;

Y:=1;

Y0:=F(X0);

Y1:=F(X1);

while Abs(Y)>E DO

Z:=Y0*(X1-X0)/(Y1-Y0);

X:=X0-Z;

Y:= F(X);

If Y*Y0<0 then

begin

X0:=X;

Y0:=Y;

end

else

begin

X1:=X;

Y1:=Y;;

end;

Edit6.Text:=FloatToStr(X);

end;

end;

Список використаної літератури

1. М. Ф. Єфремов, М. П. Решетнік, В. О. Скачков “Алгоритмічна мова Паскаль. Основи програмування та обчислювальні методи.”

2. Амосов А., Дубинский Ю. А., Копченова Н.В. Вычислительные методы для инженеров: Учеб. пособие. – М.: Высш. шк., 1994.

3. Бахвалов Н. С. Численные методы. – М.: Наука, 1973.

4. Волков Е. А. Численные методы. – М.: Наука, 1987.

5. Дьяконов В. П. Математическая система Maple V R3/R4/R5. – М.: Изд-во "СОЛОН", 1998.

6. Калиткин Н.Н. Численные методы. – М.: Наука, 1978.

7. Копченова Н.В., Марон И. А. Вычислительная математика в примерах и задачах. – М.: Наука, 1972.

8. Пирумов У.Г. Численные методы.: Учебное пособие. – М.: Изд-во МАИ, 1998.