File:Ковер Серпинского.png
Материал из Викисклада, хранилища свободных медиафайлов
Перейти к навигации
Перейти к поиску
Ковер_Серпинского.png (497 × 496 пкс, размер файла: 23 Кб, MIME-тип: image/png)
Сведения о файле
Структурированные данные
Краткие подписи
Краткое описание[править]
ОписаниеКовер Серпинского.png |
Русский: Ковер Серпинского English: Sierpinski carpet |
Дата | |
Источник | Собственная работа |
Автор | Владислав Молдован |
pascal src code[править]
uses GraphABC;
procedure RDrawRectangle(x, y, x1, y1: real):=DrawRectangle(Round(x), Round(y), Round(x1), Round(y1));
procedure Draw(x, y, w, h: real);
begin
RDrawRectangle(x, y, x + w, y + h);
var w1 := w / 3;
var h1 := h / 3;
RDrawRectangle(x + w1, y + h1, x + 2 * w1, y + 2 * h1);
if (w1 > 3) and (h1 > 3) then
begin
for var i := 0 to 2 do
for var j := 0 to 2 do
if (i <> 1) or (j <> 1) then
Draw(x + w1 * i, y + h1 * j, w1, h1);
end;
end;
begin
SetWindowSize(500, 500);
LockDrawing();
Draw(0, 0, Window.Width, Window.Height);
Redraw();
end.
Лицензирование[править]
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 09:32, 1 сентября 2017 | 497 × 496 (23 Кб) | Владислав Молдован (обсуждение | вклад) | User created page with UploadWizard |
Вы не можете перезаписать этот файл.
Использование файла
Нет страниц, использующих этот файл.
Глобальное использование файла
Данный файл используется в следующих вики:
- Использование в ru.wikibooks.org
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Горизонтальное разрешение | 37,79 точек на сантиметр |
---|---|
Вертикальное разрешение | 37,79 точек на сантиметр |