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

[GrukhvinEV]

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

[TarasBer]

Задаёшь массив из 8 точек.
Для поворота на 45 градусов для каждой точки делаешь так:

x_нов := (x+y)/sqrt(2)
y_нов := (x-y)/(sqrt(2)

Для относительно оси икс заменяешь все x на -x

[GrukhvinEV]

Задаёшь массив из 8 точек.
Для поворота на 45 градусов для каждой точки делаешь так:

x_нов := (x+y)/sqrt(2)
y_нов := (x-y)/(sqrt(2)

Для относительно оси икс заменяешь все x на -x

Ошибка тут, верно будет вот так:
x_нов := (x-y)/sqrt(2)
y_нов := (x+y)/(sqrt(2)
И относительно оси икс надо менять y на -y

Добавлено через 4 мин.
Вот написал я программу дня за 3 )))) Зато сколько возможностей )))

Program Zadanie_2;
uses graph;
function arccos(r:real):real;
begin
if r=0 then arccos:=pi/2
else arccos:=arctan(sqrt(1-sqr®)/r)+pi*byte(r<0)
end;
procedure Figura(x11,y11,x111,y111,d,m,u,c:integer);
{x11,y11 - Є®®а¤Ё­ вл 業ва  ­®ўле ®бҐ©, x111,y111-Є®®а¤Ё­ вл 業ва  дЁЈгал
®в­®бЁвҐ«м­®Ј® ­®ў®Ј® 業ва  ®бҐ©, d - а ¤Ёгб дЁЈгал, m - ¤Ґ«ЁвҐ«м а ¤Ёгб 
дЁЈгал зҐаҐ§ Є ¦¤лҐ 90 Ја ¤гб®ў,u - гЈ®« Ї®ў®а®в  ®в­®бЁвҐ«м­® ­®ў®© ®бЁ,
c - 梥в дЁЈгал}
var
i,d1,a,x1,y1:integer;
l,f:real;
    p:array[1..9] of pointtype;
begin
d1:=d div m;
a:=u;
x1:=x11+x111;
y1:=y11-y111;
//write(y11,' ',y1);
l:=(x111)/sqrt(sqr(x111)+sqr(y111));
f:=arccos(l);
x1:=round(x11+sqrt(sqr(x111)+sqr(y111))*cos(u*pi/180+f));
if (y111>=0) then
y1:=round(y11-sqrt(sqr(x111)+sqr(y111))*sin(u*pi/180+f))
else
y1:=round(y11+sqrt(sqr(x111)+sqr(y111))*sin(u*pi/180+f));
for i:=1 to 8 do
 begin
  if i mod 2=0 then
   begin
     p[i].x:=x1+round(d1*cos(a*pi/180));
     p[i].y:=y1-round(d1*sin(a*pi/180));
      end
  else
   begin
    p[i].x:=x1+round(d*cos(a*pi/180));
    p[i].y:=y1-round(d*sin(a*pi/180));
   end;
  a:=a+45;
end;
p[9].x:=p[1].x;
p[9].y:=p[1].y;
SetColor©;
drawpoly(9,p);
end;
var gd,gm,xc,yc:integer;
begin
gd:=0;
initgraph(gd,gm,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
line(0,yc,getmaxX,yc);
line(xc,0,xc,getmaxY);
outtextXY(xc+100,50,'Press Enter');
Figura(xc,yc,100,100,80,3,0,15);
readln;
Figura(xc,yc,100,100,80,3,45,10);
readln;
Figura(xc,yc,100,-100,80,3,45,5);
readln
end.

Сообщение отредактировано: GrukhvinEV - 18.12.2011 11:06