ія знань, 2010
.Язикі програмування. Концепції та принципи: В. Ш. Кауфман - Москва, ДМК Пресс, 2010
Додаток А
Програма Гілка дерева на мові PascalABC
uses GraphABC;=Pi/180; deltaangle=30 * radian; Ris (x, y: integer; len, angle: real) ;, xnew, ynew: integer;
if len lt; 1 then exit;
{Вихід з рекурсії при довжині гілки менше 1 пікселя}
if len lt; 15 then color:=14 else color:=15;
{Листя - жовтим кольором, стовбур білим}
xnew:=x + round (Len * cos (angle));
{координати кінця гілки}:=y + round (len * sin (angle)); (color); Line (x, y, xnew, ynew);
{Малюємо гілку} (xnew, ynew, len * 0.65, angle-deltaangle);
{Малюємо ліву подветкой} (xnew, ynew, len * 0.65, angle + deltaangle);
{Малюємо праву подветкой}; (100,400,160, - 40 * radian);.
Додаток Б
Малюнок 1. Гілка дерева
Малюнок 2.Дерево
