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

Вход на сайт

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

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

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

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

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

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

Программа рисующая Обнаженное обдуваемое ветром дерево Пифагора, написанная на Pascal с использованием модуля GraphABC.

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

program PythagorasTree;
uses GraphABC;
const
    angle1 = pi / 4; // Угол поворота: ╥/4 = 45°
    angle2 = pi / 6; // Угол поворота: ╥/6 = 30°
    angle3 = pi / 2; // Угол поворота: ╥/2 = 90°
procedure _Line(x, y : Integer; a, b : Real);
begin
    Line(x, y, Round(x + a * cos(b)), Round(y - a * sin(b))); //Процедура отрисовки частей
end; 
procedure DrawTree(x, y : Integer; a, b : real); //Рекурсивная процедура, использует процедуру _line.
begin   
    if a > 4 then
    begin
        a := a * 0.7;
        _Line(x, y, a, b);
        x := Round(x + a * cos(b));
        y := Round(y - a * sin(b));
        DrawTree(x, y, a, b + angle1);
        DrawTree(x, y, a, b - angle2);
    end;
end;
 
begin  
   DrawTree(300, 450, 200, angle3);
end.

Прикрепленный файлРазмер
PythagorasTree.zip56.94 кб