const. ifl > max then. ifl > max then

⇐ ПредыдущаяСтр 2 из 2

const

max = 25;

procedureLineTo1(x, y: Integer; l, u: Real);

begin

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

end;

procedureDraw(x, y: Integer; l, u: real);

begin

ifl > max then

begin

l: = l * 0. 7;

LineTo1(x, y, l/0. 2, u);

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

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

Draw(x, y, l, u + pi / 8); {Угол поворота 1}

Draw(x, y, l, u - pi / 8); {Угол поворота 2}

end;

begin

SetWindowCaption('Деревце');

SetWindowSize(730, 1000);

SetPenWidth(2);

ClearWindow;

Draw(320, 600, 200, pi/2)

end.

Рисунок 2 - Дерево высокого типа.

3. Дерево стелящегося типа.

Код программы с заданными параметрами:

usesGraphABC;

const

max = 50;

procedureLineTo1(x, y: Integer; l, u: Real);

begin

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

end;

procedureDraw(x, y: Integer; l, u: real);

begin

ifl > max then

begin

l: = l * 0. 65;

LineTo1(x, y, l*1. 6, u);

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

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

Draw(x, y, l, u - 2 * pi / 3); {Угол поворота 1}

Draw(x, y, l, u + 2 * pi / 3); {Угол поворота 2}

end;

begin

SetWindowCaption('Деревце');

SetWindowSize(730, 1000);

SetPenWidth(20);

ClearWindow;

Draw(320, 500, 400, pi/2)

end.

Рисунок 3 – Дерево стелящегося типа.

⇐ Предыдущая 12