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

^
Категории раздела
случайная задача
[04.08.2013][Pascal, Delphi, Lazarus]
Lazarus. Оператор ветвления. (0)
[21.12.2014][ЕГЭ (П)]
Керамическая плитка одной и той же торговой марки выпускается трёх разных размеров. Плитки упакованы в пачки. Пользуясь данными таблицы (0)
[30.12.2013][Фракталы]
Двоичное дерево (0)
[10.12.2015][ЕГЭ (П)]
В начале 2001 года Алексей приобрёл ценную бумагу за 7000 рублей. В конце каждого года цена бумаги возрастает на 2000 рублей. В начале любо (0)
[01.11.2015][ОГЭ]
Арифметическая прогрессия задана условиями: а1= -5, а(n + 1) = аn + 12. Найдите сумму первых 9 её членов. (0)
[28.02.2016][ЕГЭ (П)]
В случайном эксперименте бросают две игральные кости (кубика). Найдите вероятность того, что в сумме выпадет 7 очков. Результат округлите (0)
[25.01.2016][ЕГЭ (П)]
Найдите значение выражения log6 126 - log6 3,5 (0)
[14.10.2015][ОГЭ]
В магазине канцтоваров продаётся 120 ручек, из них 32 красные, 32 зелёные, 46 фиолетовые, ещё есть синие и чёрные. Найдите вероятность т (0)
Реклама
Статистика
Яндекс.Метрика


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

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

Фрактал Крест

procedure MG(x,y,dim,h:longint);
var
  i,m,n,k:integer;
  dimm,x1,y1:integer;
  a:real;
begin

           dimm:=round(dim/exp(ln(3)*It));
            form1.Image17.Canvas.MoveTo(x,y);
           for  i:=1 to round(exp(ln(4)*It))-1 do
                begin
                 a:=0;
                 n:=i;
                 k:=0;
                      Repeat
                            m:=n mod 5;
                            n:=n div 5;
                            Case m of
                                 0: a:=a+0;
                                 1: a:=a+pi/2;
                                 2: a:=a+0;
                                 3: a:=a-pi/2;
                                 4: a:=a+0;
                            end;
                            inc(k);
                      until k>=It;
                      x:=Round(x+dimm*cos(a));
                      y:=Round(y+dimm*sin(a));
                      form1.Image17.Canvas.LineTo(x,y);
                end;
end;                       
Категория: Фракталы | Добавил: Ret-Ar (30.12.2013)
Просмотров: 1903 | Рейтинг: 0.0/0