График функции - PascalABC.NET - Ответ 11880760

uses graphABC;
function F(x: real): real;
begin
  F := x + 2;
end;
 
var
  xn, xk, x, mx, my, dx: real;
  x0, y0, i, nx, nmn, nmx: integer;
 
begin
  //интервал
  xn := -5;
  xk := 5;
  //графическое окно
  setwindowsize(600, 600);
  centerwindow;
  setpencolor(clGold);
  //начало координат
  x0 := windowwidth div 2;
  y0 := round(windowheight * F(xk) / (F(xk) - F(xn)));
  //масштабы
  mx := (x0 - 30) / xk;{масштаб по Х}
  my := (y0 - 20) / F(xk);{по У}
  //координатная сетка
  for i := 1 to trunc(F(xk)) + 1 do
  begin
    line(x0 + round(i * mx), y0 - 3, x0 + round(i * mx), y0 + 3);
    line(x0 - round(i * mx), y0 - 3, x0 - round(i * mx), y0 + 3);
    line(x0 - 3, y0 - round(i * my), x0 + 3, y0 - round(i * my));
    line(x0 - 3, y0 + round(i * my), x0 + 3, y0 + round(i * my));
    textout(x0 + round(i * mx), y0 + 10, inttostr(i));
    textout(x0 - round(i * mx), y0 + 10, inttostr(-i));
    if i mod 2 = 0 then
    begin
      textout(x0 - 20, y0 - round(i * my), inttostr(i));
      textout(x0 - 25, y0 + round(i * my), inttostr(-i));
    end;
  end;
  line(0, y0, windowwidth, y0);{оси}
  line(windowwidth, y0, windowwidth - 10, y0 + 5);
  line(windowwidth, y0, windowwidth - 10, y0 - 5);
  line(x0, 0, X0, windowheight);
  line(x0, 0, x0 - 5, 10);
  line(x0, 0, x0 + 5, 10);
  textout(x0 + 5, y0 + 10, '0');
  textout(windowwidth - 10, y0 - 20, 'X');
  textout(x0 + 10, 0, 'Y');
  //график
  x := xn;
  setpencolor(clBlue);
  setpenwidth(2);
  dx := 0.1;
  while x <= xk do
  begin
    if x = xn then moveto(x0 + round(x * mx), y0 - round(F(x) * my))
    else lineto(x0 + round(x * mx), y0 - round(F(x) * my));
    x := x + dx;
  end;
  setfontsize(10);
  setfontcolor(clBlue);
  textout(20, 0, 'График функции y=x+2');
end.