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

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

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

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

textual
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.

8   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ