уравнение x=f(x) методом касательный и методом хорд в делфи

[electrovolk]

привет всем
помогите пожалуста решить уровнение или хотя бы дайте подсказку
но у меня есть прога которая немного похожа на мою задачу
только вместо уровнения х=f(x) там сs(x)=0
в этом и моя проблема
мне все уши прожужали
много всяких версий
все смешалось
так что прошу спасать




(код задачи)
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
c,d,a,b,x1,x2,xr1,xr2:real; {xr1, xr2 – переменные для записи ответов; a, b - первоначальные точки для метода хорд; с – третья точка в методе хорд; х1, х2 – точки для метода касательных; d – погрешность}

implementation

{$R *.dfm}

Function y1(x:real):real; {наша функция}
begin
y1:=cos(x);
end;

Function y2(x:real):real;
begin
y2:=-sin(x);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
x2:=1; {Метод касательных. Присвоили точку отсчета, так сказать}
d:=0.005; {задали погрешность}
while (abs(x2-x1)>d) do
begin
x1:=x2;
x2:=x1-(y1(x1)/y2(x2)); {Формула расчета следующей точки, а впоследствии и искомого значения, для метода касательных}
end;
xr1:=x2;
a:=0; {Начинаем метод хорд с задания отрезка [a;b] для поиска}
b:=3.15;
while ((abs(a-b)>d)and(y1(c)<>0)) do
begin
c:=a+abs(y1(a)/(y1(a)-y1(b)))*(b-a); {формула для метода хорд}
if (y1(c)*y1(a)<0) then
b:=c
else
a:=c;
end;
xr2:=c; {получили ответ}
Label1.Caption:=’Метод касательных:’+FloatToStr(xr1)+’ Метод хорд:’+FloatToStr(xr2); {вывод ответа}
end;

end.