/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Coords/Tree.pas
22 строки
325 B
Mikhalkovich Stanislav
Примеры новые
15 июн 2025, 16:21
15 июн 2025, 16:21
d6f30e8
Код
Авторство
О чём код?
uses Turtle; procedure DrawTree(length: real; depth: integer); begin if depth > 0 then begin forw(length); turn(-35); DrawTree(length*0.65, depth-1); turn(70); DrawTree(length*0.65, depth-1); turn(-35); forw(-length); end; end; begin toPoint(0, -8); down; DrawTree(6, 11); end.