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

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

Нарисовать рисунок:

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

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

uses graph;
var xc,yc,x,y,r,r1,r2,i:integer;
    u:real;
begin
initgraph(x,y,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r:=yc-30;
rectangle(xc-r,yc-r,xc+r,yc+r);
line(xc-r,yc-r,xc+r,yc+r);
line(xc-r,yc+r,xc+r,yc-r);
r1:=round(r*sqrt(2)/2);
r2:=r div 2;
u:=pi/4;
for i:=1 to 4 do
 begin
  x:=xc+round(r1*cos(u));
  y:=yc-round(r1*sin(u));
  circle(x,y,r2);
  u:=u+pi/2
 end;
r1:=3*r div 4;
r2:=r div 4;
u:=0;
for i:=1 to 4 do
 begin
  x:=xc+round(r1*cos(u));
  y:=yc-round(r1*sin(u));
  circle(x,y,r2);
  u:=u+pi/2
 end;
readln
end.

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

Подключается библиотека graph.
Объявляются переменные xc, yc, x, y, r, r1, r2, i: integer; u: real;
Вызывается функция initgraph(x, y, ''), которая устанавливает графический контекст.
Вычисляются координаты центра фигуры: xc = getmaxX / 2, yc = getmaxY / 2.
Вычисляется радиус фигуры: r = yc - 30.
Выводится на экран прямоугольник с помощью функции rectangle(xc-r, yc-r, xc+r, yc+r).
Выводятся на экран две линии с помощью функций line(xc-r, yc-r, xc+r, yc+r) и line(xc-r, yc+r, xc+r, yc-r).
Вычисляется первый радиус для окружности: r1 = round(r * sqrt(2) / 2).
Вычисляется второй радиус для окружности: r2 = r / 2.
Вычисляется угол для окружности: u = pi / 4.
Запускается цикл for, который выполняется 4 раза.
В каждой итерации цикла вычисляются координаты точки для окружности: x = xc + round(r1 cos(u)), y = yc - round(r1 sin(u)).
Выводится на экран окружность с помощью функции circle(x, y, r2).
Вычисляется новый угол для окружности: u = u + pi / 2.
Вычисляется второй радиус для окружности: r1 = 3 * r / 4.
Вычисляется второй радиус для окружности: r2 = r / 4.
Вычисляется угол для окружности: u = 0.
Запускается цикл for, который выполняется 4 раза.
В каждой итерации цикла вычисляются координаты точки для окружности: x = xc + round(r1 cos(u)), y = yc - round(r1 sin(u)).
Выводится на экран окружность с помощью функции circle(x, y, r2).