Реализовать программу, строящую двумерное изображение заданной фигуры. Опции

[GrukhvinEV]

Реализовать программу, строящую двумерное изображение заданной фигуры. Необходимо выполнить 2D преобразования и отобразить новое положение фигуры.

[GrukhvinEV]

А точно, извини просто уже крыша едет от pascala =))

Добавлено через 13 мин.
Короче я уже сбился походу с верного пути, мне кажется что эту программу можно намного проще написать чем она у меня есть, подскажите где что можно упрастить и что исправить. Спасибо!

Program Zadanie_1;
uses Graph, Crt;
const k=7; n=1;
z:array [0..k,0..n] of
 integer= ((320,000),(427,160),(640,240),(427,320),
           (320,480),(213,320),(000,240),(213,160));
var
 gd,gm         :integer;
 t            :integer;
 x1,y1,x2,y2   :integer;
 xc,yc  :real;
begin
gd:=detect;
initgraph(gd,gm,'');
 xc:=GetMaxX/640/2;
 yc:=GetMaxY/480/2;
 t:=0;
 while t<=k do begin
 x1:=round(-z[0+t,0]*xc+GetMaxX/2);
 y1:=round(-z[0+t,1]*yc+GetMaxY/2);
 x2:=round(-z[(1+t) mod 8,0]*xc+GetMaxX/2);
 y2:=round(-z[(1+t) mod 8,1]*yc+GetMaxY/2);
 line(x1,y1,x2,y2);

 inc(t);
 end;
 readln;
 t:=0;
 while t<=k do begin
 x1:=round((-z[0+t,0]*xc+GetMaxX/2-z[0+t,1]*yc+GetMaxY/2)/sqrt(2));
 y1:=round((-z[0+t,0]*xc+GetMaxX/2+z[0+t,1]*yc+GetMaxY/2)/sqrt(2));
 x2:=round((-z[(1+t) mod 8,0]*xc+GetMaxX/2-z[(1+t) mod 8,1]*yc+GetMaxY/2)/sqrt(2));
 y2:=round((-z[(1+t) mod 8,0]*xc+GetMaxX/2+z[(1+t) mod 8,1]*yc+GetMaxY/2)/sqrt(2));
 setcolor(2);
 line(x1,y1,x2,y2);
 inc(t);
 end;
 readln;
 t:=0;
 while t<=k do begin
 x1:=round((-z[0+t,0]*xc+GetMaxX/2-z[0+t,1]*yc+GetMaxY/2)/sqrt(2));
 y1:=round((-z[0+t,0]*xc+GetMaxX/2+z[0+t,1]*yc+GetMaxY/2)/sqrt(2));
 x2:=round((-z[(1+t) mod 8,0]*xc+GetMaxX/2-z[(1+t) mod 8,1]*yc+GetMaxY/2)/sqrt(2));
 y2:=round((-z[(1+t) mod 8,0]*xc+GetMaxX/2+z[(1+t) mod 8,1]*yc+GetMaxY/2)/sqrt(2));
 setcolor(14);
 line(-x1,y1,-x2,y2);
 inc(t);
end;
readln;
closegraph;
end.