Курсовая работа: Метод золотого перерізу для пошуку екстремумів функцій

procedure TForm1.FormActivate(Sender: TObject);

begin

Memo1.Lines.Clear;

Memo1.Lines.Add('F(x)= sin(x+1)');

end;

procedure TForm1.Button1Click(Sender: TObject);

var h:real;xx:real; i:integer;

begin

eps:=StrToFloat(Edit1.Text);

ao:=StrToFloat(Edit2.Text);

bo:=StrToFloat(Edit3.Text);

a:=ao; b:=bo;

alpha:=(sqrt(5)-1)/2;

x1:=bo-alpha*(bo-ao);

x2:=ao+alpha*(bo-ao);

f1:=f(x1);

f2:=f(x2);

while abs(a-b)>eps do

BEGIN

if f1>{<}f2 then

begin

b:=x2;

x2:=x1;

f2:=f1;

x1:=b-alpha*(b-a);

f1:=f(x1);

end ELSE

begin

a:=x1;