геомГетрические преобразования на плоскости

[netbioz]

Условие:Получить фигуру с помощью преобразований масштабирования и поворота

А вот по сути и сама фигура .
Только сама фигару на рисунке вышла немного растянутая.
PS Полная трудность с решением этой задачи

[OCTAGRAM]

Делается процедура рисования гексаграммы с заданным углом поворота и стороной; затем эта процедура несколько раз используется. К углу каждый раз добавляется 30°, сторона каждый раз уменьшается в Sqrt(3) раз.

[netbioz]

Сообщение от OCTAGRAM

Делается процедура рисования гексаграммы с заданным углом поворота и стороной; затем эта процедура несколько раз используется. К углу каждый раз добавляется 30°, сторона каждый раз уменьшается в Sqrt(3) раз.

мм... у меня это неполучается

[OCTAGRAM]

неполучается — это неконкретно

[netbioz]

"рисования гексаграммы" вот это не получается, я просто с паскалем знаком нетак уж много времени =(

PS ни каких успехов в решении этой задачи

[Kravec]

Если ещё нужно решение задачи то забирай

Program peretvorenna;
uses crt,GRAPH;
var
y,x,xo,yo,r,n,i,b,c,k,j:integer;
f,df:real;
a:array[1..100] of pointtype;
procedure Init;
Var driver, Regim, error:integer;
begin
Driver:=Detect;
InitGraph(driver, Regim,'');
Error:= GraphResult;
if Error<> groK
   then begin
        writeln('Owubka v procedure inizialiazii');
      Halt
  end;
end;
procedure tru(r:integer;f1:real);
begin
xo:=getmaxx div 2;
yo:=getmaxy div 2;
df:=2*pi/3;  f:=f1;
for i:=1 to 4 do
begin
x:=xo+round(r*cos(f));
y:=yo-round(r*sin(f));
a[i].x:=x;
a[i].y:=y;
f:=f+df;
end;
drawpoly(4,a);
end;
begin
clrscr;
write('c=');
readln(c);
init;
tru(c,pi/3);
tru(c,2*pi/3);
tru(round(c/1.7),pi/6);
tru(round(c/1.7),pi/2);
tru(round(c/3.1),pi/3);
tru(round(c/3.1),2*pi/3);
readln;
closegraph;
end.

[netbioz]

Сообщение от Kravec

Если ещё нужно решение задачи то забирай

спасибо , буду должен