Фрактальная графика. Задачи 10 класс.

Uses CRT, GraphABC;

Const Z= 13; {Glubina Fraktala}

Procedure ris(x1,y1,x2,y2,k:integer);

Var xn,yn:integer;

Begin

     If k>0 Then

     Begin

          xn:=(x1+x2) div 2 +(y2-y1) div 2;

          yn:=(y1+y2) div 2 -(x2-x1) div 2;

          ris(x1,y1,xn,yn,k-1);

          ris(x2,y2,xn,yn,k-1)

     End

     Else

          line(x1,y1,x2,y2)

End;

{Main program}

Begin

     SetWindowCaption('Фрактал – кривая дракона');

     SetWindowSize(700,512);

     ClearWindow;

     ris(200,300,500,300,Z);

     Repeat Until KeyPressed

End.

Снежинка Коха на Паскале (Pascal)

uses GraphABC;

procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);

begin

Draw(x, y, l, u, t);

x := x + l*cos(u);

y := y - l*sin(u);

end;

begin

if t > 0 then

begin

l := l/3;

Draw2(x, y, l, u, t-1);

Draw2(x, y, l, u+pi/3, t-1);

Draw2(x, y, l, u-pi/3, t-1);

Draw2(x, y, l, u, t-1);

end

else

Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))

end;

begin

SetWindowSize(425,500);

SetWindowCaption('Ôðàêòàëû: Ñíåæèíêà Êîõà');

Draw(10, 354, 400, pi/3, 4);

Draw(410, 354, 400, pi, 4);

Draw(210, 8, 400, -pi/3, 4);

end.

Кривая Коха на Паскале (Pascal)

uses GraphABC;

procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);

begin

Draw(x, y, l, u, t);

x := x + l*cos(u);

y := y - l*sin(u);

end;

begin

if t > 0 then

begin

l := l/3;

Draw2(x, y, l, u, t-1);

Draw2(x, y, l, u+pi/3, t-1);

Draw2(x, y, l, u-pi/3, t-1);

Draw2(x, y, l, u, t-1);

end

else

Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))

end;

begin

SetWindowSize(425,500);

SetWindowCaption('Фракталы: Кривая Коха');

Draw(10, 254, 400, 0, 4);

end.