Уроки, алгоритмы, программы, примеры

Вход на сайт

Материалы по разделам

Построения
на плоскости (2D)
Графика
в пространстве (3D)
Вычислительная
геометрия
Физическое
моделирование
Фрактальная
графика

Новые комментарии

КРУГОВОЙ ФРАКТАЛ -ОШИБОЧНАЯ ПРОГРАММА! ПАПА ЗибЕрт
Можешь обяснить подробно что как работает, и почему массу не задаем
Здравствуйте, Ильгиз. Математика - царица наук (Карл Гаусс). Изучение математики начинается с детского сада, когда нас учат считать и выполнять простые арифметические операции. Любой, даже самый простейший алгоритм будет связан с арифметическими...
Я хотел узнать математика это обязательно в программирование. Пять лет назад просто из любопытства я увлекся HTML потом изучил CSS и JvaScript потом изучил PHP и Java. Как то не задумывался и начал смотреть форумы и узнал что без математики не...
Все верно, но так же необходимо зайти в: Компоновщик -> Ввод -> Дополнительные зависимости Здесь необходимо нажать изменить и в Дополнительные зависимости прописать это: SDL2.lib SDL2main.lib SDL2test.lib Без этого не заработает. (MVS 2015)

Счетчики и рейтинг

Яндекс.Метрика Рейтинг@Mail.ru
Скриншот к примеру
Среда программирования: 
Pascal ABC.NET
Статья по теме: 

Программа демонстрирующая круговой фрактал

Код программы: 

uses GraphABC;
procedure Draw (x,y,size:integer); //главная процедура
 var a,b,c:integer; 
     s,f,g:integer;
 begin
  a:=1;b:=6;c:=3; //параметры алгоритма
  if size > a 
   then
    begin
     f:=round(size/c ); //уменьшаем радиус
     g:=round(size*(c-1)/c ); 
     for s:= 1 to  b do
      Draw ( x - round ( g*sin ( 2*pi/b*s ) ) , y + round ( g*cos ( 2*pi/b*s ) ) , f ); //рисуем окружности
     Draw ( x, y, f ); //окружность в центре
    end;
  ellipse ( x - size, y - size, x + size, y + size );
 end; 
begin
  SetBrushStyle(bsclear);
  Setpencolor(clblue); //задаем цвет наших окружностей
  SetWindowTitle('Круговой фрактал');
  Draw(340,260,220);
end.