Программа для построения графика функции y=sin([x][/2]+c)

var
  Form3: TForm3;
  a,b,h,x,maxY,MaxX,miny,minx,c:Real;
implementation
 
uses Unit1, Unit2;
 
{$R *.dfm}
 
 function y(x:double;c:real):double;
 begin
    y:=Sin(Sqr(sqr(x)+c));
 end;
 
procedure TForm3.Exit3Click(Sender: TObject);
begin
Application.Terminate;
end;
 
procedure TForm3.BackClick(Sender: TObject);
begin
Form3.Hide;
Form1.Show
end;
 
 
function factorial(n: integer): integer;
begin
if n > 1
then factorial := n * factorial(n-1) // функция вызывает сама себя
else factorial:= 1;  // факториал 1 равен 1
end;
 
procedure TForm3.V2Click(Sender: TObject);
var st:string;
begin
a:=strtofloat(InputBox('ВВод значений','Введите a',''));
b:=strtofloat(InputBox('ВВод значений','Введите b',''));
if a>b then
begin
ShowMessage('Отрезок выбран неверно, повторите ввод');
Exit
end;
c:=strtofloat(InputBox('ВВод значений','Введите с',''));
h:=strtofloat(InputBox('ВВод значений','Введите h',''));
if h>(b-a) then
begin
ShowMessage('Шаг выбран неверно, повторите ввод');
Exit
end;
lbl1.caption:='Границы отрезка ['+Floattostr(SimpleRoundTo(a,-6))+','+Floattostr(SimpleRoundTo(b,-6))+']';
x:=a;
graph.Visible:=True;
mmo1.Visible:=True;
mmo2.Visible:=True;
MaxY:=-1e6;
miny:=1e6;
 while x<=b do
 begin
  if y(x,c)>maxY then begin
  MaxY:=y(x,c);
  MaxX:=x;
  end;
  if y(x,c)<minY then begin
  MinY:=y(x,c);
  MinX:=x;
  end;
  mmo1.Lines.Add('x='+FloatToStr(SimpleRoundTo(x,-6))+' y(x)='+Floattostr(SimpleRoundTo(y(x,c),-6)));
  x:=x+h;
  end;
 
lbl3.Caption:='Максимальное значение Y(x)='+Floattostr(SimpleRoundTo(MaxY,-6))+' при X='+Floattostr(SimpleRoundTo(MaxX,-6))+'.';
lbl2.Caption:='Минимальное значение Y(x)='+Floattostr(SimpleRoundTo(MinY,-6))+' при X='+Floattostr(SimpleRoundTo(MinX,-6))+'.';
lbl4.caption:='Новые границы отрезка ['+Floattostr(SimpleRoundTo(MinX,-6))+';'+Floattostr(SimpleRoundTo(Maxx,-6))+']';
a:=minx;
b:=maxx;
h:=(b-a)/9;
x:=a;
mmo2.Lines.Add('x='+FloatToStr(SimpleRoundTo(x,-6))+' y(x)='+Floattostr(SimpleRoundTo(y(x,c),-6)));
lnseries1.AddXY(x,y(x,c),st,clBlack);
while x<b do
 begin
   x:=x+h;
   mmo2.Lines.Add('x='+FloatToStr(SimpleRoundTo(x,-6))+' y(x)='+Floattostr(SimpleRoundTo(y(x,c),-6)));
   lnseries1.AddXY(x,y(x,c),st,clBlack);
 end;
 
end;
 
 
procedure TForm3.ClearClick(Sender: TObject);
begin
 lnSeries1.Clear;
 mmo1.Lines.Clear;
 mmo2.Lines.Clear;
 lbl1.Caption:='';
 lbl2.Caption:='';
 lbl3.Caption:='';
 lbl4.Caption:='';
end;
 
end.