Сайт начал процедуру переезда на новый хостинг

Новый сайт
LOGO
Главная Регистрация Вход RSS
Приветствую Вас, Гость
Категории раздела
Случайное решение
[11.02.2016][ЕГЭ (П)]
Найдите наибольшее значение функции у = x^3 - 18х^2 + 81x + 73 на отрезке [0; 7]. (0)
[24.09.2015][ОГЭ]
Какое из следующих утверждений верно? 1)Центр описанной около треугольника окружности всегда лежит внутри этого треугольника. (0)
[11.02.2016][ЕГЭ (П)]
1 киловатт-час электроэнергии стоит 1 руб. 80 коп. 1 ноября счётчик электроэнергии показывал: 12 625 киловатт-часов, а 1 декабря — 12 802 ки (0)
[19.09.2015][ЕГЭ (П)]
Вероятность того, что новый тостер прослужит больше года, равна 0,98. Вероятность того, что он прослужит больше двух лет, равна 0,86. Найдит (0)
[29.01.2016][ОГЭ]
На клетчатой бумаге с размером клетки 1x1 отме¬чены три точки: А, В и С. Найдите расстояние от точки А до середины отрезка ВС (0)
[11.03.2016][ОГЭ]
В таблице даны результаты забега девочек 8 класса на дистанцию 60 м. Зачёт выставляется при условии, что показан результат не хуже 10,8 с. (0)
[11.02.2016][ОГЭ]
В треугольнике ABC известно, что АС = 8, ВС = 15, угол С равен 90°. Найдите радиус описанной около этого треугольника окружности. (0)
[14.10.2015][ОГЭ]
Из двух городов одновременно навстречу друг другу отправились два велосипедиста. Проехав некоторую часть пути, первый велосипедист сдела (0)
Статистика
Яндекс.Метрика
Поделиться
Реклама
Вход на сайт
Популярное
[14.10.2015][ОГЭ]
Площадь четырёхугольника можно вычислить по формуле s=d1*d2*sin a/2 , где d1 и d2 — длины диагоналей четырехугольника, а —угол между диа (0)
[11.03.2016][ОГЭ]
Найдите площадь квадрата, описанного около окружности радиуса 9. (0)
[21.12.2014][ЕГЭ (П)]
Диагональ правильной четырёхугольной призмы наклонена к плоскости основания под углом 30°. Боковое ребро равно 3. Найдите диагональ призмы. (0)
[15.04.2015][ЕГЭ (П)]
В прямоугольном параллелепипеде ABCDA1B1C1D1 известны длины рёбер: АВ = 3, AD = 4, АА1 = 32. Найдите площадь сечения, про¬ходящего через вер (0)
[14.10.2015][ОГЭ]
12. На клетчатой бумаге с размером клетки 1x1 изображён параллелограмм. Найдите его пло¬щадь (0)
[21.12.2014][ЕГЭ (П)]
Корень(9 - 4*корень(5)) - корень(5) или √9-4√5-√5 (0)
[11.02.2016][ОГЭ]
На клетчатой бумаге с размером клетки 1x1 изображена трапеция. Найдите длину её средней линии. (0)
[29.01.2016][ОГЭ]
Биссектриса равностороннего треугольника равна 9Корень(3) . Найдите его сторону. (0)
[21.12.2014][ЕГЭ (П)]
В случайном эксперименте симметричную монету бросают триж¬ды. Найдите вероятность того, что решка выпадет все три раза (0)
[14.10.2015][ОГЭ]
После уценки телевизора его новая цена составила 0,57 старой. На сколько процентов уменьшилась цена телевизора в результате уценки? (0)
Свидетельство
Главная » Статьи » Программирование » Фракталы

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

 
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)
Просмотров: 2485 | Рейтинг: 0.0/0