Файл:Бинарное дерево.png
Нет версии с бо́льшим разрешением.
Бинарное_дерево.png (637 × 318 пкс, размер файла: 10 Кб, MIME-тип: image/png)
|
Cведения об этом файле находятся на Викискладе?, хранилище изображений и мультимедиа для использования во всех проектах Фонда Викимедиа. |
|
Краткое описание
| Описание |
Русский: Бинарное дерево English: binary tree. Here H = shift down during one iteration, and iteration = number of iterations |
| Дата | |
| Источник | Собственная работа |
| Автор | Владислав Молдован |
Pascal src code
- H - смещение вниз во время одной итерации
- Iterations - количество итераций
uses GraphABC;
const
H = 50;
Iterations = 6;
procedure DrawTree(x, y, dx, iterations: integer);
begin
if iterations > 0 then
begin
var xm := x - dx;
var xp := x + dx;
var yp := y + H;
Line(x, y, xm, yp);
Line(x, y, xp, yp);
Dec(iterations);
dx := dx div 2;
DrawTree(xm, yp, dx, iterations);
DrawTree(xp, yp, dx, iterations);
end;
end;
begin
var W := Window.Width;
SetWindowIsFixedSize(true);
SetWindowHeight(20 + Iterations * H);
ClearWindow(clBlack);
SetPenColor(clGreenYellow);
LockDrawing();
DrawTree(W div 2, 10, W div 5, Iterations);
Redraw();
end.
{Адаптировано под PascalABC 3.0.1.35.}
uses GraphABC;
const
H = 50;
Iterations = 6;
procedure DrawTree(x, y, dx, iterations: integer);
var
xm, xp, yp: integer;
begin
if iterations > 0 then
begin
xm := x - dx;
xp := x + dx;
yp := y + H;
Line(x, y, xm, yp);
Line(x, y, xp, yp);
Dec(iterations);
dx := dx div 2;
DrawTree(xm, yp, dx, iterations);
DrawTree(xp, yp, dx, iterations);
end;
end;
var
W: integer;
begin
W := WindowWidth();
SetWindowHeight(20 + Iterations * H);
ClearWindow(clBlack);
SetPenColor(clGreen);
LockDrawing();
DrawTree(W div 2, 10, W div 5, Iterations);
Redraw();
end.
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
| Дата/время | Миниатюра | Размеры | Участник | Примечание | |
|---|---|---|---|---|---|
| текущий | 09:32, 1 сентября 2017 | | 637 × 318 (10 Кб) | Владислав Молдован | User created page with UploadWizard |
Использование файла
Следующая страница использует этот файл:
