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

Новый сайт
LOGO
Главная Регистрация Вход RSS
Приветствую Вас, Гость
Категории раздела
Случайное решение
[14.10.2015][ОГЭ]
Флагшток удерживается в вертикальном положении при помощи троса. Расстояние от основания флагштока до места крепления троса на земле равно 3 (0)
[29.01.2016][ОГЭ]
Треугольник ABC вписан в окружность с центром в точке О. Найдите угол АСВ, если угол АОВ равен 173°. (0)
[19.09.2015][ЕГЭ (П)]
Флакон шампуня стоит 170 рублей. Какое наибольшее число флаконов можно купить на 1000 рублей во время распродажи, когда скидка составляет 35 (0)
[11.02.2016][ОГЭ]
Сберегательный банк начисляет на срочный вклад 10% годовых. Вкладчик положил на счёт 900 рублей. Сколько рублей будет на этом счёте через го (0)
[15.05.2015][ЕГЭ (П)]
7. В треугольнике ABC угол А равен 56°, углы В и С — острые, высоты BD и СЕ пересекаются в точке О. Найдите угол DOE. Ответ дайте в градусах (0)
[24.09.2015][ОГЭ]
Найдите значение выражения 33a-23b+71 если (3a-4b+8)/(4a-3b+8)=9 (0)
[15.05.2015][ЕГЭ (П)]
Для определения эффективной температуры звёзд используют закон Стефана — Больцмана, согласно которому мощность излучения нагретого тела пря (0)
[05.04.2015][ЕГЭ (П)]
Найдите площадь квадрата ABCD. Размер каждой клетки 1 см х 1 см. Ответ дайте в квадратных санти¬метрах (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)
[14.10.2015][ОГЭ]
После уценки телевизора его новая цена составила 0,57 старой. На сколько процентов уменьшилась цена телевизора в результате уценки? (0)
[21.12.2014][ЕГЭ (П)]
В случайном эксперименте симметричную монету бросают триж¬ды. Найдите вероятность того, что решка выпадет все три раза (0)
Свидетельство
Главная » Статьи » Программирование » Фракталы

Двоичное дерево
procedure Dendron2(x,y,dim,h:longint);
var dimm:integer;
  begin
       if h>0 then
                begin
                     Form1.Image2.Canvas.Line(x,y,x,y-dim);
                    Form1.Image2.Canvas.Line(x-dim,y-dim,x+dim,y-dim);
                     dimm:=round(dim*MasH);
                     Dendron2(x-dim,y-dim,dimm,h-1);
                     Dendron2(x+dim,y-dim,dimm,h-1);
                end;
  end;     
Категория: Фракталы | Добавил: Ret-Ar (30.12.2013)
Просмотров: 2528 | Рейтинг: 0.0/0