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

Label1: TLabel;

Edit4: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Memo1: TMemo;

Label5: TLabel;

Chart1: TChart;

Series1: TLineSeries;

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

eps:real;

a,b,ao,bo:real;

alpha:real;

x1,x2:real;

f1,f2:real;

x_opt:real;

implementation

{$R *.dfm}

function f(x:real):extended;

begin

f:=sin(x+1); //zadannja potribnoji fynkchiji !!!