====== Часть первая ======

Требуется нарисовать шесть линий под углом $60^\circ$ друг с другом. Для облегчения расчетов перейдем в полярную систему координат (так как в ней естественным образом делается поворот). В полярной системе координата точки задается так же двумя числами, однако суть их несколько другая. Выбирается некоторое направление (Ox на рисунке), на нем начальная точка (начало координат в нашем случае). Координаты точки задаются парой чисел: расстоянием $\rho$ до выбранной точки и углом $\phi$ между этим отрезком $\rho$ и выбранным направлением Ох.

{{:tasks:poljarnye_ris.jpg?200|}}

Между привычной декартовой и полярной системами координат можно перейти с помощью следующих формул:

$$
\begin{eqnarray}
\rho & = & \sqrt{x^2+y^2}  \\
\phi & = & \arccos\frac{x}{\rho}
\end{eqnarray}
$$

И обратно:

$$
\begin{eqnarray}
x & = & \rho\cos{\phi}  \\
y & = & \rho\sin{\phi}
\end{eqnarray}
$$


С использованием полярных координат поворот линии выполняется с помощью следующего алгоритма: 

  - Перевести координаты конца линии из декартовых в полярные полярные
  - Компоненте к углу $\phi$ добавить $60^\circ$.
  - Перевести координаты конца обратно из полярных в декартовые
  - Нарисовать линию на экран


<code pascal>

users oglgraph, crt, math;

type point = record
  x,y,r,phi:real;
end;

var 
  gd, gm: smallint;
  p_nach:point; // центр снежинки, он будет неподвижен
  p_konech:point; // конец снежинки, его координата будет меняться
  x_centr, y_centr:integer; // координаты центра экрана
 
function dec2pol(p:point):point;
begin
  dec2pol.x = p.x;
  dec2pol.y = p.y;
  dec2pol.r = sqrt(sqr(p.x) + sqr(p.y));
  dec2pol.phi = arccos(p.x/dec2pol.r);
end;

function pol2dec(x:point):point;
begin
  //реализовать самостоятельно
end;

begin
  gd := Detect;
  gm := DetectMode;
  initgraph(gd, gm, '');
  
  x_centr := getmaxx div 2; // найдем центр снежинки
  y_centr := getmaxy div 2;
  
  p_nach.x := 0; // зададим координаты центра снежинки
  p_nach.y := 0;
  
  p_konech.x := 0; // и конца ее первого луча, пусть он будет вертикальный
  p_konech.y := 200;
  
  line(round(p_nach.x) + x_centr, round(p_nach.y) + y_centr, round(p_konech.x) + x_centr, round(p_konech.y) + y_centr); // нарисуем первую линию снежинки
  
  for i := 1 to 5 do
  begin
    // реализовать самостоятельно отрисовку остальных линий снежинки
  end;
  repeat until graphkeypressed;
  closegraph;
end.
</code>