Построить множество точек, координаты которых удовлетворяют заданным неравенствам - Free Pascal

Формулировка задачи:

Построить множество точек, координаты которых удовлетворяют следующим неравенствам: 2y>=x^2, y<=-2x^2+3x

Решение задачи: «Построить множество точек, координаты которых удовлетворяют заданным неравенствам»

Листинг программы

uses graph;
var xc,yc,i:integer;
    x,y1,y2:longint;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
x:=-xc;
while x<=xc do
 begin
  y1:=yc-x*x div 2;
  y2:=yc+2*x*x+3*x;
  for i:=0 to 2*yc do
  if(i<y1)or(i>y2) then putpixel(xc+x,i,12);
  x:=x+1;
 end;
line(0,yc,2*xc,yc);
line(xc,0,xc,2*yc);
readln
end.

Объяснение кода листинга программы

В этом коде используется библиотека Graph для рисования графиков. Первые три строки определяют переменные, которые будут использоваться в коде:

xc и yc — это координаты центра прямоугольника, который будет использоваться для отображения точек.
i — это счетчик, используемый в цикле.
x, y1 и y2 — это координаты точек, которые будут отображаться на графике. Следующие две строки инициализируют график с использованием функции initgraph, которая принимает три аргумента:
xc, yc — это координаты центра прямоугольника.
Пустая строка '' используется в качестве имени файла, который не используется в этом коде. Затем код вычисляет координаты двух точек, которые будут отображаться на графике, используя формулы y1 = yc — x * x / 2 и y2 = yc + 2 * x * x + 3 * x. Затем код использует цикл для отображения точек, которые удовлетворяют заданным условиям (то есть i < y1 или i > y2), используя функцию putpixel, которая принимает пять аргументов:
xc + x — это x-координаты точки.
i — это y-координаты точки.
12 — это цвет точки (в данном случае белый). Затем код рисует две линии с использованием функции line, которая принимает четыре аргумента:
0 и yc — это координаты первой точки на линии.
2 * xc и yc — это координаты второй точки на линии.
xc и 0 — это координаты первой точки на второй линии.
xc и 2 * yc — это координаты второй точки на второй линии. Наконец, код завершается функцией readln, которая ожидает ввода пользователя, чтобы закрыть программу.