Результаты поиска
Создать страницу «Fractal» в этом вики-проекте! См. также найденные результаты поиска.
- Inc(n); if a <> 1 then FractalCreate(x + s2, y, s, n, 3); if a <> 2 then FractalCreate(x, y + s2, s, n, 4); if a <> 3 then FractalCreate(x - s2, y, s, n...7 Кб (873 слова) - 15:56, 16 апреля 2020
- procedure Fractal(depth: integer; dividedAngle: integer); begin if (depth <= 0) then exit; Dec(depth); Fractal(depth, dividedAngle); Draw(); Fractal(depth...54 Кб (7300 слов) - 16:00, 16 апреля 2020