Построить график функции на координатной сетке с задаваемыми промежутками.

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Buttons, Menus,
  Series, BubbleCh, Grids;
 
type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Label15: TLabel;
    Label16: TLabel;
    Chart1: TChart;
    Series1: TLineSeries;
    Series2: TPointSeries;
    Series3: TPointSeries;
    procedure BitBtn1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  b0, b1: real;
  r :real;
  tablx: array[-2..2] of real; //массив для подсчёта У
implementation
 
uses Unit1;
 
{$R *.dfm}
 
 
 
procedure TForm2.BitBtn1Click(Sender: TObject);
var
 i:integer;
begin
 Label5.Visible:=true;
 Label6.Visible:=true;
 Label7.Visible:=true;
 Label8.Visible:=true;
 Chart1.Visible:=true;
    varx:=Srsumsqrx-sqr(SrX);
   varx:=round(varx*100)/100;
  //Label12.Caption:=FloatToStr(Varx);
   vary:=Srsumsqry-sqr(SrY);
   vary:=round(vary*100)/100;
  //Label13.Caption:=FloatToStr(Vary);
   covxy:=SrXY-SrX*SrY;
   covxy:=round(covxy*100)/100;
  //Label14.Caption:=FloatToStr(covxy);
   b1:=covxy/varx;
   b1:=round(b1*1000)/1000;
  Label6.Caption:=FloatToStr(b1);
   b0:=(sumy*summx-sumx*mulsum)/(23*summx-sumx*sumx);
   b0:=round(b0*1000)/1000;
  Label5.Caption:=FloatToStr(b0);
   r:=covxy/(sqrt(varx)*sqrt(vary));
   r:=round(r*100)/100;
  Label7.Caption:=FloatToStr(r);
   R:=sqr(r);
  R:=round(R*100)/100;
  Label8.Caption:=FloatToStr(R);
  Label16.Caption:='Y='+FloatToStr(b1)+'X+' +FloatToStr(b0);
     for i:=1 to 23 do
    [B]begin
     Chart1.SeriesList[0].AddXY(masx[i],b0+b1*masx[i]);
     Chart1.SeriesList[1].AddXY(masx[i],masy[i]);
     Chart1.SeriesList[2].AddXY(masx[i],b0+b1*masx[i]);
    end;[/B]// построение графика
end;
 
 
procedure TForm2.N1Click(Sender: TObject);
begin
 Form1.Close;
 Form2.Close;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
 Form2.Close;
 Form1.Close;
end;
 
end.