Ковер Серпинского (Квадратный) - Фракталы - Программирование - Каталог статей - Учись! Slider en CSS3 et JS

^
Категории раздела
случайная задача
[21.12.2014][ЕГЭ (П)]
На рисунке изображён график функции у = /(х), определённой на интервале (-5; 9). Найдите количество точек, в которых произ¬водная функции f{ (0)
[24.09.2015][ОГЭ]
Магазин делает пенсионерам скидку на определённое количество процентов от стоимости покупки. Десяток яйц стоит в магазине 55 рублей, а пен (0)
[01.11.2015][ОГЭ]
Значение какого из данных ниже выражений является наименьшим? (2)
[28.02.2016][ЕГЭ (П)]
Найдите наибольшее значение функции у = x^5 + 20x^3 - 65х на от¬резке [- 4; 0]. (0)
[01.11.2015][ОГЭ]
Найдите значение выражения 39а-156 + 25, если (3a-6b+4)/(6a-3b+4)=7 (0)
[15.05.2015][ЕГЭ (П)]
Первая труба наполняет бак объёмом 570 литров, а вторая труба — бак объёмом 530 литров. Известно, что одна из труб пропускает в минуту на (0)
[11.02.2016][ОГЭ]
На клетчатой бумаге с размером клетки 1x1 изображена трапеция. Найдите её площадь. (0)
[15.05.2015][ЕГЭ (П)]
В правильной четырёхугольной пирамиде высота равна 2, боковое ребро равно 8. Найдите её объём (0)
Реклама
Статистика
Яндекс.Метрика


Онлайн всего: 40
Гостей: 40
Пользователей: 0

копирайт
Copyright Игорь Ret-Ar Матыцин © 2017
 
поделиться
Мы Вконтакте
Google+
реклама
Свидетельство
Вход на сайт
Популярное
[14.10.2015][ОГЭ]
Площадь четырёхугольника можно вычислить по формуле s=d1*d2*sin a/2 , где d1 и d2 — длины диагоналей четырехугольника, а —угол между диа (0)
[21.12.2014][ЕГЭ (П)]
Диагональ правильной четырёхугольной призмы наклонена к плоскости основания под углом 30°. Боковое ребро равно 3. Найдите диагональ призмы. (0)
[21.12.2014][ЕГЭ (П)]
В случайном эксперименте симметричную монету бросают триж¬ды. Найдите вероятность того, что решка выпадет все три раза (0)
[15.04.2015][ЕГЭ (П)]
В прямоугольном параллелепипеде ABCDA1B1C1D1 известны длины рёбер: АВ = 3, AD = 4, АА1 = 32. Найдите площадь сечения, про¬ходящего через вер (0)
[21.12.2014][ЕГЭ (П)]
Корень(9 - 4*корень(5)) - корень(5) или √9-4√5-√5 (0)
[21.12.2014][ЕГЭ (П)]
В кубе ABCDA1B1C1D1 точки Е, F, Е1 и F1 являются серединами рёбер ВС, DC, B1C1 и D1C1 соответственно. Объём призмы, отсекаемой от куба плоск (0)
[15.04.2015][ЕГЭ (П)]
13. Первый сплав содержит 5% меди, второй — 11% меди. Масса второго сплава больше массы первого на 4 кг. Из этих двух спла¬вов получили трет (0)
[14.10.2015][ОГЭ]
После уценки телевизора его новая цена составила 0,57 старой. На сколько процентов уменьшилась цена телевизора в результате уценки? (0)
[14.10.2015][ОГЭ]
10. Отрезки АС и BD — диаметры окружности с центром О. Угол АСВ равен 78° . Найдите угол AOD. Ответ дайте в градусах (0)
[01.11.2015][ОГЭ]
Два катета прямоугольного треугольника равны 17 и 4. Найдите его площадь (2)
ГДЗ
Главная » Статьи » Программирование » Фракталы

Ковер Серпинского (Квадратный)

 
procedure KovSerp(x,y,dim,count:integer);
   begin
        if count>=1 then
        begin
            form1.Image26.Canvas.Brush.Color:=clwhite;
     form1.Image26.Canvas.Rectangle(x+round(dim/3),y+round(dim/3),x+round(2*dim/3),y+round(2*dim/3));
     KovSerp(x,y,round(dim/3),count-1);
     KovSerp(x+round(dim/3),y,round(dim/3),count-1);
     KovSerp(x+round(2*dim/3),y,round(dim/3),count-1);
     KovSerp(x,y+round(dim/3),round(dim/3),count-1);
     KovSerp(x+round(2*dim/3),y+round(dim/3),round(dim/3),count-1);
     KovSerp(x,y+round(2*dim/3),round(dim/3),count-1);
     KovSerp(x+round(dim/3),y+round(2*dim/3),round(dim/3),count-1);
     KovSerp(x+round(2*dim/3),y+round(2*dim/3),round(dim/3),count-1);
        end;
   end;        
 
Вызов:
 form1.Image26.Canvas.Brush.Color:=clblue;
   form1.Image26.Canvas.Pen.Color:=clwhite;
  form1.Image26.Canvas.Rectangle(20,20,20+strtoint(edit60.Text),20+strtoint(edit60.Text));
  KovSerp(20,20,strtoint(edit60.Text),strtoint(edit59.Text)); 
Категория: Фракталы | Добавил: Ret-Ar (03.01.2014)
Просмотров: 1958 | Рейтинг: 0.0/0