interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Label4: TLabel;
Label5: TLabel;
Chart1: TChart;
Button2: TButton;
Series1: TFastLineSeries;
Button3: TButton;
Label6: TLabel;
Label7: TLabel;
Button4: TButton;
Label8: TLabel;
Label9: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
E,a,b,F,G,x,x1,x2:real;
implementation

{$R *.dfm}

function Func(x:real):real;
begin
result:=3*x*x*x*x+4*x*x*x+(22/3)*x*x+4*x+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var h: real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
E:=StrToFloat(Edit3.Text);
h:=abs(b-a)/4;
x:=a;
F:=Func(x);
Repeat
repeat
G:=F;
x:=x+h;
F:=Func(x);
until F>G;
h:=-h/4;
Until abs(h)<=E;
Label4.Caption:='x='+FloatToStr(x);
Label5.Caption:='F='+FloatToStr(F);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,n:integer;
dx,x:real;
begin
Chart1.Series[0].Clear;
n:=60;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
dx:=abs(b-a)/(n-1);
x:=a;
For i:=1 to n do
begin
Chart1.Series[0].Addxy(x,Func(x));
x:=x+dx;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
E:=StrToFloat(Edit3.Text);
x1:=0.618*a+0.382*b;
x2:=0.382*a+0.618*b;
F:=Func(x1);
G:=Func(x2);
While abs(b-a)>=E do
begin
If F<G then
begin
b:=x2;
x2:=x1;
G:=F;
x1:=0.618*a+0.382*b;
F:=Func(x1);
end
else
begin
a:=x1;
x1:=x2;
F:=G;
x2:=0.382*a+0.618*b;
G:=Func(x2);
end;
end;
x:=(a+b)/2;
F:=Func(x);
Label8.Caption:='x='+FloatToStr(x);
Label9.Caption:='F='+FloatToStr(F);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
E:=StrToFloat(Edit3.Text);
While abs(b-a)>=2*E do
begin
x1:=(a+b)/2-E/2;
x2:=(a+b)/2+E/2;
F:=Func(x1);
G:=Func(x2);
If F-G>0 then
begin
a:=x1;
end
else
begin
b:=x2;
end;
end;
x:=(a+b)/2;
F:=Func(x);
Label6.Caption:='x='+FloatToStr(x);
Label7.Caption:='F='+FloatToStr(F);
end;

end.