Форум программистов, компьютерный форум, киберфорум
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Построение графика Эпициклоиды по вводимым параметрам https://www.cyberforum.ru/delphi-multimedia/thread319938.html
Доброго времени суток, уважаемому сообществу! Помогите, пожалуйста, написать программу: В Form2 имеются два поля Edit1 и Edit2 для ввода "от руки" параметров "a" и "b" соответственно. Нажатием...
Delphi нужно что бы выводило рисунок
Основание четырехугольной пирамиды — ромб. Вершина пирамиды проектируется в центр симметрии ромба. Провести сечение, проходящее через высоту основания, опущенную из тупого угла ромба, и боковое...
Delphi Плавное переползание при Drag&Drop
Привет Подскажите как штатно сделать плавное переползание при drag&drop То есть - упрощая ситуацию - есть TImage, которую надо drag-drop на TPanel - и при этом надо показывать перемещения по TForm,...
Delphi PC Beep Как в delphi реализовать воспроизведение звуков через PC Beep, то есть через внутренний динамик? windows.beep делает один пип и дохнет, а мне надо звуковой файл воспроизвести! https://www.cyberforum.ru/delphi-multimedia/thread318852.html
Delphi Спектроанализатор улавливает звук не на всех компьютерах https://www.cyberforum.ru/delphi-multimedia/thread318172.html
Такая ситуация: есть спектроанализатор звука, написан на основе БПФ, для захвата звука используется DirectSound. Но есть такая проблема: на моем домашнем компьютере (ОС - Windows 7...
Delphi Столкновение изображений
Добрый день всем, я уже неделю ломаю голову, помогите пожалуста: Хочу сделать простенькую 2D аркаду типа http://hellroom.ru/oldgame/rikx0.jpg Подскажите как реализовать следующее - У нас...
Delphi Алгоритм Z буфера
Добрый день! Написал программу которая выводит 3d фигуру (октаэдр)! А вот алгоритм отсечения (z-буфер) невидимых линий не получается, уже неделю пытаюсь и все безрезультатно. Помогите пожалуйста...
Delphi столкновение двух машин напишите программу чтобы можно было ввести скорость двух машин и если скорость одной из них будет больше другой чтобы они сталкивались и одна сбивала другую или если скорости равны чтобы сталкивались... https://www.cyberforum.ru/delphi-multimedia/thread317796.html
Delphi Музыка при открытии формы https://www.cyberforum.ru/delphi-multimedia/thread317750.html
Можно ли сделать так, что бы при запуске программы автоматически начинала играть музыка??? Если можно , то как?
Delphi Фрактальная гарфика Доброго времени суток! Кто знает, что такое фрактал - помогите пожалуйста. Столкнулся с проблемой, что не понимаю, как реализовать описание затравки фрактала. Сам алгоритм мне не известен. Все мои... https://www.cyberforum.ru/delphi-multimedia/thread317441.html
anonimus
2183 / 1251 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
16.06.2011, 10:20 0

Нарисовать круги через рекурсию

16.06.2011, 10:20. Просмотров 894. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Krit-Ydachnik как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
begin
DrowEleps(100,100,0);
end;
 
procedure TForm1.DrowEleps(x, y,c: integer);
begin
inc(c);
Canvas.Ellipse(x-10,y-10,x+10,y+10);
if c=3 then
DrowEleps(x-5,y+20,c);
if c<3 then
DrowEleps(x+20,y,c);
if (c>3)and(c<6) then
DrowEleps(x-20,y,c);
 
end;


Вернуться к обсуждению:
Нарисовать круги через рекурсию
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2011, 10:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Нарисовать сетку и круги
Здравствуйте. Заданы размеры сетки и есть виджет в окне. Как в Qt правильно нарисовать сетку из...

Нарисовать круги Эйлера
Как нарисовать круги Эйлера

Нарисовать круги с линиями
Ребята, помогите нарисовать пару кружков как на картинке и потом нажимая на кнопку мыши или кнопку...

Нарисовать круги на воде
for(i=0;i&lt;30;i++) { for(int it=0; it&lt;30; it++) { for(int q=0; q&lt;360; q++) { ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.