Файл:Треугольник Серпинского.png
Треугольник_Серпинского.png (501 × 500 пкс, размер файла: 16 Кб, MIME-тип: image/png)
Cведения об этом файле находятся на Викискладе?, хранилище изображений и мультимедиа для использования во всех проектах Фонда Викимедиа. |
Краткое описание
ОписаниеТреугольник Серпинского.png |
English: Sierpinski triangle Русский: Треугольник Серпинского |
Дата | |
Источник | Собственная работа |
Автор | Владислав Молдован |
Pascal src code
uses GraphABC;
procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1));
procedure Draw(x, y, x1, y1, x2, y2: real; iterations: integer);
begin
if iterations > 0 then
begin
var mx1 := (x + x1) / 2;
var my1 := (y + y1) / 2;
var mx2 := (x1 + x2) / 2;
var my2 := (y1 + y2) / 2;
var mx3 := (x2 + x) / 2;
var my3 := (y2 + y) / 2;
Dec(iterations);
Draw(x, y, mx1, my1, mx3, my3, iterations);
Draw(mx1, my1, x1, y1, mx2, my2, iterations);
Draw(mx3, my3, mx2, my2, x2, y2, iterations);
end
else
begin
RLine(x, y, x1, y1);
RLine(x1, y1, x2, y2);
RLine(x2, y2, x, y);
end;
end;
begin
Lockdrawing();
Draw(100, 500, 100, 100, 500, 500, 8);
Redraw();
end.
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
У этого свойства есть некоторое значение без элемента в
2 сентября 2017
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 14:14, 1 сентября 2017 | 501 × 500 (16 Кб) | Владислав Молдован | User created page with UploadWizard |
Использование файла
Следующая страница использует этот файл:
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Горизонтальное разрешение | 37,79 точек на сантиметр |
---|---|
Вертикальное разрешение | 37,79 точек на сантиметр |