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

^
Категории раздела
случайная задача
[01.11.2015][Методика]
Плакат "Линейная функция" (0)
[19.09.2015][ЕГЭ (П)]
Вероятность того, что новый тостер прослужит больше года, равна 0,98. Вероятность того, что он прослужит больше двух лет, равна 0,86. Найдит (0)
[11.10.2013][ЕГЭ (П)]
ЕГЭ Математика B4 (0)
[14.10.2015][ОГЭ]
На диаграмме представлены семь крупнейших по площади территории (в млн км2) стран мира. Какие из следующих утверждений верны? (0)
[05.05.2015][ЕГЭ (П)]
Бетонный шар весит 0,5 т. Сколько тонн будет весить шар вдвое большего радиуса, сделанный из такого же бетона (0)
[05.04.2015][ЕГЭ (П)]
Найдите корень уравнения log8(2)^(7x-8)=2 (0)
[25.01.2016][ЕГЭ (П)]
Марина и Дина бросают кубик по одному разу. Выигрывает та де-вочка, у которой выпадет больше очков. Первой кубик бросила Марина, у неё выпал (0)
[26.01.2016][ЕГЭ (П)]
Павел Иванович купил американский автомобиль, спидометр которого показывает скорость в милях в час. Американская миля равна 1609 м. Какова (0)
Реклама
Статистика
Яндекс.Метрика


Онлайн всего: 33
Гостей: 32
Пользователей: 1
Ret-Ar

копирайт
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)
ГДЗ
Главная » Статьи » Программирование » Фракталы

Фрактал звезда
 
$IMAGE1$
 
 Function Mn(nn: Integer): Real;
Begin
 
  If nn mod (v*v*v*v) = 0 then Result:=1     Else
  If nn mod (v*v*v)   = 0 then Result:=r     Else
  If nn mod (v*v)     = 0 then Result:=r*r  Else
  If nn mod (v)       = 0 then Result:=r*r*r Else
                               Result:=r*r*r*r;
End;    
procedure TForm1.SpeedButton46Click(Sender: TObject);
var
 
   a     : Real;
   x, y  : Real;
   xn,yn : Real;
   i,u,o     : longint;
begin
   Image23.Canvas.Brush.Color:=clwhite;
  Image23.Canvas.FillRect(0,0,form1.Image1.Width,form1.Image1.Height);
it:=strtoint(edit52.Text);
    r:=strtofloat(edit53.Text);
    l:=strtoint(edit51.Text);
    da1:=4*pi/5;
    v:=strtoint(edit55.caption);
 
    a:=0;
   x:=350;
   y:=0;
     image1.Canvas.MoveTo(Round(x), Round(y));
   For i:=0 to it Do Begin
         xn:=x+sin(a)*l*Mn(i);
     yn:=y-cos(a)*l*Mn(i);
     u:= Round(xn);
     o:=-Round(yn) ;
 
     image23.Canvas.LineTo(u,o );
     x:=xn;
     y:=yn;
     a:=a+da1;
 
   End;
end;      
Категория: Фракталы | Добавил: Ret-Ar (30.12.2013)
Просмотров: 2181 | Рейтинг: 0.0/0