Построить семейство разноцветных случайным образом размещенных шестиугольников. - Pascal

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

Построить семейство разноцветных случайным образом размещенных шестиугольников.

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

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

uses crt,graph;
type Tpoint=record
            x,y:integer;
            end;
procedure Poly;
var r,x1,y1,a,i:integer;
    p:array[1..7] of Tpoint;
begin
r:=random(150)+10;
x1:=random(640-r)+r;
y1:=random(440-r)+r;
a:=-60;
for i:=1 to 6 do
 begin
  p[i].x:=x1+round(r*cos(a*pi/180));
  p[i].y:=y1-round(r*sin(a*pi/180));
  a:=a+60;
 end;
p[7].x:=p[1].x;
p[7].y:=p[1].y;
MoveTo(p[1].x,p[1].y);
SetColor(random(14)+1);
for i:=1 to 7 do
LineTo(p[i].x,p[i].y);
end;
var  gd,gm:integer;
begin
randomize;
InitGraph(gd,gm,'');
outtextXY(250,20,'Vyhod - any key...');
repeat
Poly;
delay(500);
until keypressed;
end.

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

Объявлены переменные: r, x1, y1, a, i, p, gd, gm.
Задаются начальные значения переменным: r=random(150)+10, x1=random(640-r)+r, y1=random(440-r)+r.
Задается начальное значение переменной a=-60.
Цикл for выполняется 6 раз, в результате чего создаются координаты для шестиугольника (п.2).
Координаты последнего треугольника присваиваются первой точке (п.4).
Перемещается указатель в начало координат (п.1).
Задается случайный цвет (п.3).
Цикл for выполняется 7 раз, в результате чего рисуются линии к точкам с заданными координатами (п.4).
Запускается цикл, который повторяется до тех пор, пока не будет нажата клавиша (п.8).