Рекурсивное рисование окружности

@Ekaterina20 · Регистрация: 22.12.2014

Студворк — интернет-сервис помощи студентам

Разработать программу, которая обеспечит рисование окружности в центре экрана, окруженной еще тремя окружностями меньшего диаметра, окруженными еще тремя окружностями меньшего диаметра и т.д. Глубина рисунка задается пользователем. Цвет окружностей меняется.

P.S.
Разработать программу в соответствии со своим вариантом, выполняющую обработку данных на основе рекурсивных алгоритмов (Pascal,желательно ABC).

@Puporev · 02.04.2015, 07:55

Для простого АВС.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses graphABC,crt;
const k=2;//коэффициент уменьшения радиуса
      cl:array[1..6] of integer=(clAqua,clRed,clGreen,clBlue,clTeal,clFuchsia);//цвета
var x,y,r,d,n,c:integer;
//функция рисования, x,y-координаты цента,r-начальный радиус,n-глубина рекурсии
function ris(x,y,r,n:integer):integer;
begin
if n=0 then ris:=0
else
 begin
  setpencolor(cl[n]);
  circle(x,y,r);
  dec(n);
  ris:=ris(x,y-round(k*r),round(r/k),n);
  ris:=ris(x-round(k*r*cos(pi/6)),y+round(k*r*sin(pi/6)),round(r/k),n);
  ris:=ris(x+round(k*r*cos(pi/6)),y+round(k*r*sin(pi/6)),round(r/k),n);
 end;
end;
begin
r:=60;
repeat
write('N=[1..6] n=');
readln(n);
until n in [1..6];
clrscr;
hidecursor;
setwindowsize(500,500);
centerwindow;
x:=windowwidth div 2;
y:=x;
ris(x,y,r,n);
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Ekaterina20 0 / 0 / 0 Регистрация: 22.12.2014 Сообщений: 5

	Рекурсивное рисование окружности 01.04.2015, 22:09. Показов 2324. Ответов 1 Метки нет (Все метки) Разработать программу, которая обеспечит рисование окружности в центре экрана, окруженной еще тремя окружностями меньшего диаметра, окруженными еще тремя окружностями меньшего диаметра и т.д. Глубина рисунка задается пользователем. Цвет окружностей меняется. P.S. Разработать программу в соответствии со своим вариантом, выполняющую обработку данных на основе рекурсивных алгоритмов (Pascal,желательно ABC). 0

Рекурсивное рисование окружности

Решение