Построить эллипс синего цвета и заполнить ее косыми линиями // удвоенной толщины - Free Pascal

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

))))

Решение задачи: «Построить эллипс синего цвета и заполнить ее косыми линиями // удвоенной толщины»

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

uses graph,wincrt;
var x,y,r1,r2:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
r1:=250;
r2:=150;
setcolor(9);
setfillstyle(3,9);
setlinestyle(0,0,3);
fillellipse(x,y,r1,r2);
readkey
end.

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

uses graph,wincrt; — подключаем модули graph и wincrt для работы с графикой и окнами
var x,y,r1,r2:integer; — объявляем переменные для хранения координат и радиуса эллипса
begin — начало выполнения программы
initgraph(x,y,''); — инициализируем графический режим с заданными координатами (x,y) и пустым именем файла для сохранения
x:=getmaxX div 2; — получаем значение максимальной ширины окна и делим его на 2, сохраняя результат в переменную x
y:=getmaxY div 2; — делаем то же самое для высоты окна, сохраняя результат в переменную y
r1:=250; — задаем первый радиус эллипса равным 250
r2:=150; — задаем второй радиус эллипса равным 150
setcolor(9); — устанавливаем цвет синий (9)
setfillstyle(3,9); — устанавливаем стиль заполнения эллипса (3 - косыми линиями, 9 - удвоенная толщина)
setlinestyle(0,0,3); — устанавливаем стиль линии (0 - сплошная, 0 - неперпендикулярная, 3 - удвоенная толщина)
fillellipse(x,y,r1,r2); — рисуем эллипс с заданными координатами и радиусами
readkey — ожидаем нажатия клавиши для завершения программы
end. — конец выполнения программы