Нарисовать рисунок - Turbo Pascal (32700)

Решение задачи: «Нарисовать рисунок»

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

uses graph;
var x,y,a,r:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
a:=50;
r:=a div 2;
setbkcolor(15);
setcolor(8);
rectangle(x-a,y-a,x+a,y+a);
line(x-a,y-a,x+a,y+a);
circle(x+a+r,y-a,r);
circle(x-a-r,y+a,r);
line(x-a,y-a,x-a-r,y+a-r);
line(x+a,y+a,x+a+r,y-a+r);
readln
end.

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

Подключается библиотека graph.
Объявляются переменные x, y, a, r типа integer.
Вызывается функция initgraph(x, y, ''), которая устанавливает графическую среду.
Вычисляются координаты центра прямоугольника x/2, y/2.
Вычисляется радиус круга a/2.
Устанавливается цвет фона 15.
Устанавливается цвет линии 8.
Рисуется прямоугольник (x-a, y-a, x+a, y+a).
Рисуется линия (x-a, y-a, x+a, y+a).
Рисуется круг (x+a+r, y-a, r).
Рисуется круг (x-a-r, y+a, r).
Рисуется линия (x-a, y-a, x-a-r, y+a-r).
Рисуется линия (x+a, y+a, x+a+r, y-a+r).
Выводится команда readln, которая ожидает ввода пользователя.
Выполняется вывод строки end. для завершения программы.