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

Вход на сайт

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

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

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

Выдаёт ошибку glut32.dll не найден! При том, что он лежит в System32! Всё решил) Нужно отправить не в System32, а в System.
Спасибо за статью. Я не Ваш студент. Но мне она помогла написать функцию для Канторова множества на Python для черепашки: import turtle def kanter(x, y, d):     if d > 1:         turtle...
Как реализовать в данном примере границы расчёта?

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

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

Работа с кодом :
Чтобы запустить наш код нам понадобится открыть приложение PascalABC.NET. Мы должны скопировать код и нажать на кнопку "Выполнить". После чего произойдет компиляция кода и помощью модуля GraphABC появится окно в котором уже и будет построен фрактал.

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

Program Sasha;
uses GraphABC;
var
  x,y : integer;//х,y-целые числа
  dx,dy: integer;
  turn: array [1..1000] of Boolean;//поворот массива
  a,b,d,t: integer;
  f: Boolean;
  i: integer;
begin
  SetWindowSize(790,500);//Устанавливаем ширину и высоту графического окна.
  SetWindowCaption('Фракталы. Кривая Дракона');
  f:=true;
  for a := 1 to 64 do
  begin
    turn[2*a-1]:=f;
    f:=not f;
    turn[2*a]:=turn[a];
  end;
  x:=200; dx:=0;
  y:=140; dy:=-4;
  b:=0;
  d:=1;
  f:=false;//при f ложном
  MoveTo(x,y);
  for a:=1 to 128 do
  begin
    for i:=1 to 127*4 do
    begin
      b := b+d; x:=x+dx; y:=y+dy;
      LineTo(x,y);
      if f and not turn[b] or not f and turn[b] then
      begin
        t:=dy;
        dy:=-dx;
      end
      else
      begin
        t:=-dy;
        dy:=dx;
      end;
      dx:=t;
    end;
    b:=b+d; d:=-d;
    f:=not f;
    x:=x+dx; y:=y+dy;
    LineTo(x,y);
    if turn[a] then
    begin
      t:=dy;
      dy:=-dx;
    end
    else
    begin
      t:=-dy;
      dy:=dx;
    end;
    dx:=t;
  end;
end.

Прикрепленный файлРазмер
moskvitina_examples_frac_3.zip589 байтов