напишите пожалуйста комментарии ,не могу объяснить лабу(( - Delphi - Ответ 1324290

const k  = 1001; {кол-во точек графика}
      XN = 50;    {начальная координата по х}
      YN = 10;    {начальная координата по у}
      NX = 5;    {число клеток по х}
      NY = 5;    {число клеток по у}
 
var a,b,dx,dy,ymax,ymin : Extended;
    x,y                 : Array[1..K] of Extended;
    xe,ye               : Array[1..K] of Integer;
    lx,ly,xk,yk         : Integer;
    st                  : String;
 
procedure Line(x1,y1,x2,y2:Integer);
Begin
   with Form1.Image1.Canvas do
   begin
     MoveTo(x1,y1);
     LineTo(x2,y2);
   end;
End;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
 
function f(x:extended):extended;
begin f:= exp (x*x/2);
end;{FUNCTION}
 
var i:Integer;
begin
   with Form1.Image1.Canvas do
   begin
     Pen.Color:=clWhite;                             //очистка области графика
     Rectangle(0,0,Image1.ClientWidth,Image1.ClientHeight);
     Pen.Color:=clBlack;
     Font.Color:=clBlue;
   end;
   xk:=Image1.ClientWidth-10;
   yk:=Image1.ClientHeight-25;
   try
     a:=StrToFloat(edit1.Text);
     b:=StrToFloat(edit2.Text);
   except
     MessageBox(0,'Неверный ввод!','Ошибка!',MB_ICONSTOP);
     exit;
   end;
   dx:=(b-a)/(K-1);
   ymax:=f(a);                             //FUNCTION
   ymin:=ymax;
   for i := 1 to K do                                      //подсчет координат и определение
   Begin                                                   //максимума и минимума
     x[i]:=a+dx*(i-1);
     y[i]:=f(x[i]);                     //FUNCTION
     if ymax<y[i] then ymax:=y[i];
     if ymin>y[i] then ymin:=y[i];
   End;
 
   for i:=1 to K do                                        //пересчет координат для построения
   begin
     xe[i]:=XN+round((x[i]-a)*(XK-XN)/(b-a));               {!!!}
     ye[i]:=YN+round((ymax-y[i])*(YK-YN)/(ymax-ymin));      {!!!}
   end;
 
   lx:=(XK-XN) div NX;
   dx:=(b-a)/NX;
   for i:=1 to (NX+1) do                                   //горизонтальные линии сетки
   begin
     line(XN+lx*(i-1),YN,XN+lx*(i-1),YK);
     str((a+dx*(i-1)):5:2,st);  
     form1.Image1.Canvas.TextOut(XN-20+lx*(i-1),YK+10,st);
   end;
 
   ly:=(YK-YN) div NY;
   dy:=(ymax-ymin)/NY;
   for i:=1 to NY+1 do                                     //вертикальные линии сетки
   begin
     line(XN,YN+ly*(i-1),XK,YN+ly*(i-1));
     str((ymax-DY*(i-1)):5:2,st);
     form1.Image1.Canvas.TextOut(XN-50,YN-4+ly*(i-1),st);
   end;
 
   with Form1.Image1.Canvas do
   begin
     Pen.Color:=clGreen;
     Pen.Width:=2;
     for i:=1 to K-1 do                                    //график
       line(xe[i],ye[i],xe[i+1],ye[i+1]);
     Pen.Color:=clBlack;
     Pen.Width:=1;
   end;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Form1.Close;
end;
 
end.