График функции

uses
  graphABC; //Подключаем графический модуль
 
const
  W = 900; H = 600;//Размеры графического окна
 
function F1(x: real): real;
begin
  F1 := 0.6 * x + 3; 
end;
 
function F2(x: real): real;
begin
  F2 := power(x - 2, 3) - 1; 
end;
 
function F3(x: real): real;
begin
  F3 := 3 / x; 
end;
 
var
  x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer;
  a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num,z: real;
  i: byte;
  s: string;
 
begin
 
  SetWindowSize(W, H); //Устанавливаем размеры графического окна
  //Координаты левой верхней границы системы координат:
  xLeft := 50;
  yLeft := 50;
  //Координаты правой нижней границы системы координат:
  xRight := W - 50;
  yRight := H - 50;
  //интервал по Х; a и b должно нацело делится на dx:
  a := -8; b := 6; dx := 1;
  //Интервал по Y; fmin и fmax должно нацело делится на dy:
  fmin := -15; fmax := 20; dy := 2;
  //Устанавливаем масштаб:
  mx := (xRight - xLeft) / (b - a); //масштаб по Х
  my := (yRight - yLeft) / (fmax - fmin); //масштаб по Y
  //начало координат:
  x0 := trunc(abs(a) * mx) + xLeft;
  y0 := yRight - trunc(abs(fmin) * my);
  //Рисуем оси координат:
  line(xLeft, y0, xRight + 10, y0); //ось ОХ
  line(x0, yLeft - 10, x0, yRight); //ось ОY
  SetFontSize(12); //Размер шрифта
  SetFontColor(clBlue); //Цвет шрифта
  TextOut(xRight + 20, y0 - 15, 'X'); //Подписываем ось OX
  TextOut(x0 - 10, yLeft - 30, 'Y'); //Подписываем ось OY
  SetFontSize(8); //Размер шрифта
  SetFontColor(clRed); //Цвет шрифта
  { Засечки по оси OX: }
  n := round((b - a) / dx) + 1; //количество засечек по ОХ
  for i := 1 to n do
  begin
    num := a + (i - 1) * dx; //Координата на оси ОХ
    x := xLeft + trunc(mx * (num - a)); //Координата num в окне
    Line(x, y0 - 3, x, y0 + 3); //рисуем засечки на оси OX
    str(Num:0:1, s);
    if abs(num) > 1E-15 then //Исключаем 0 на оси OX
      TextOut(x - TextWidth(s) div 2, y0 + 10, s)
  end;
  { Засечки на оси OY: }
  n := round((fmax - fmin) / dy) + 1; //количество засечек по ОY
  for i := 1 to n do
  begin
    num := fMin + (i - 1) * dy; //Координата на оси ОY
    y := yRight - trunc(my * (num - fmin));
    Line(x0 - 3, y, x0 + 3, y); //рисуем засечки на оси Oy
    str(num:0:0, s);
    if abs(num) > 1E-15 then //Исключаем 0 на оси OY
      TextOut(x0 + 7, y - TextHeight(s) div 2, s)
  end;
  TextOut(x0 - 10, y0 + 10, '0'); //Нулевая точка
  { График функции строим по точкам: }
 
 
 x1 := a; //Начальное значение аргумента
  while x1 <= b do
  begin
    y1 := F1(x1); //Вычисляем значение функции
    x := x0 + round(x1 * mx); //Координата Х в графическом окне
    y := y0 - round(y1 * my); //Координата Y в графическом окне
    //Если y попадает в границы [yLeft; yRight], то ставим точку:
    if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clGreen);
    x1 := x1 + 0.001 //Увеличиваем абсциссу
  end;
  
  
  x1 := a; //Начальное значение аргумента
  while x1 <= -0.000001 do
  begin
    y1 := F3(x1); //Вычисляем значение функции
    x := x0 + round(x1 * mx); //Координата Х в графическом окне
    y := y0 - round(y1 * my); //Координата Y в графическом окне
    //Если y попадает в границы [yLeft; yRight], то ставим точку:
    if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clGreen);
    x1 := x1 + 0.001 //Увеличиваем абсциссу
  end;
 x1 := 0.00001; //Начальное значение аргумента
  while x1 <= b do
  begin
    y1 := F3(x1); //Вычисляем значение функции
    x := x0 + round(x1 * mx); //Координата Х в графическом окне
    y := y0 - round(y1 * my); //Координата Y в графическом окне
    //Если y попадает в границы [yLeft; yRight], то ставим точку:
    if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clGreen);
    x1 := x1 + 0.001 //Увеличиваем абсциссу
  end;
 
 
 x1 := a; //Начальное значение аргумента
  while x1 <= b do
  begin
    y1 := F2(x1); //Вычисляем значение функции
    x := x0 + round(x1 * mx); //Координата Х в графическом окне
    y := y0 - round(y1 * my); //Координата Y в графическом окне
    //Если y попадает в границы [yLeft; yRight], то ставим точку:
    if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clGreen);
    x1 := x1 + 0.01 //Увеличиваем абсциссу
  end;
  
x1:=a; 
while x1<0.001 do
begin 
y1:=-13; 
while y1<3.5 do
if (y1<F1(x1)) then begin 
x := x0 + round(x1 * mx); 
y := y0 - round(y1 * my);
SetPixel(x,y, clBlack);
y1:=y1+0.1;
end;
x1:=x1+0.1;
end; 
  
end.

x1:=a; 
while x1<0.001 do
begin 
y1:=-13; 
while y1<3.5 do
if (y1<F1(x1)) then begin 
x := x0 + round(x1 * mx); 
y := y0 - round(y1 * my);
SetPixel(x,y, clBlack);
y1:=y1+0.1;
end;
x1:=x1+0.1;
end; 
  
end.

x1:=a; 
while x1<0.001 do
begin 
  Line(x0+round(x1*mx), y0+Round(13*my), x0+round(x1*mx), y0-Round(F1(x1)*my)-1);
  x1:=x1+0.1;
end;

x1:=-6; 
while x1<0.0001 do
begin 
y1:=-13; 
while y1<3.5 do begin
if (y1<F1(x1)) and (y1>F3(x1)) and (y1>F2(x1)) then begin 
x := x0 + round(x1 * mx); 
y := y0 - round(y1 * my);
SetPixel(x,y, clBlack);
 
end;y1:=y1+0.01; end;
x1:=x1+0.01;
end;