Графика: шестигранная призма, вид сверху и сбоку - Pascal ABC

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

Нарисуйте шестигранную призму,вид сверху и сбоку.Все видимые грани заполнителя различным орнаментом и цветом заполнения. Через GraphABC. Зарание спасибо).

Решение задачи: «Графика: шестигранная призма, вид сверху и сбоку»

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

uses graphABC;
type point=record
           x,y:integer;
           end;
var a:array[1..7] of point;
    xc,yc,r,i:integer;
    u:real;
begin
setwindowsize(800,400);
centerwindow;
xc:=windowwidth div 4;
yc:=windowheight div 2;
r:=yc-50;
u:=pi/2+pi/6;
for i:=1 to 7 do
 begin
  a[i].x:=xc+round(r*cos(u));
  a[i].y:=yc-round(r*sin(u));
  u:=u+pi/3;
 end;
setpencolor(clRed);
setbrushcolor(clRed);
setbrushstyle(bsCross);
polygon(a,7);
xc:=3*xc;
setpencolor(clBlue);
setbrushcolor(clBlue);
setbrushstyle(bsBDiagonal);
rectangle(xc-r,yc-r,xc-(r div 2),yc+r);
setpencolor(clOlive);
setbrushcolor(clOlive);
setbrushstyle(bsVertical);
rectangle(xc-(r div 2),yc-r,xc+(r div 2),yc+r);
setpencolor(clOlive);
setbrushcolor(clBrown);
setbrushstyle(bsFDiagonal);
rectangle(xc+(r div 2),yc-r,xc+r,yc+r);
end.

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

Подключается библиотека graphABC.
Определяется тип данных point, который представляет точку с координатами x и y.
Создается переменная a, которая представляет собой массив из 7 точек.
Определяются переменные xc, yc, r и i, которые используются для расчета координат точек.
Вычисляется значение u, которое используется для расчета углов.
Запускается цикл for, который проходит по каждой из 7 точек в массиве a.
Внутри цикла вычисляются координаты каждой точки и записываются в соответствующие поля структуры point.
Устанавливается цвет кисти и линии пера на красный, используя функцию setpencolor и setbrushcolor.
Используя функцию polygon, рисуется шестигранная призма.
Устанавливается цвет кисти и линии пера на синий, используя функцию setpencolor и setbrushcolor.
Используя функцию rectangle, рисуется прямоугольник.
Устанавливается цвет кисти и линии пера на оливковый, используя функцию setpencolor и setbrushcolor.
Используя функцию rectangle, рисуется еще один прямоугольник.
Устанавливается цвет кисти и линии пера на коричневый, используя функцию setpencolor и setbrushcolor.
Используя функцию rectangle, рисуется еще один прямоугольник.
Выводится сообщение о завершении программы.