|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.11.2014, 18:43 | #1 |
Пользователь
Регистрация: 26.04.2013
Сообщений: 21
|
множество Кантора (Delphi)
Здравствуйте, помогите пожалуйста написать программу, которая рисует множество Кантора.
Рисунок множество Кантора образован квадратами. Каждый следующий квадрат в четыре раза меньше предыдущего. Центр каждого следующего квадрата расположен в вершине предыдущего квадрата и т.д. Так как рисунок состоит из однотипных элементов, и есть явная зависимость, как размеров, так и положения, следовательно, при создании данного рисунка можно использовать в программе рекурсию. |
04.11.2014, 18:46 | #2 |
Пользователь
Регистрация: 26.04.2013
Сообщений: 21
|
Есть код, который рекурсивно строит круги
Код:
|
04.11.2014, 19:03 | #3 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
в чём проблема?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
04.11.2014, 19:05 | #4 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
ВНИМАНИЕ! Забрал отсюда : тыц
Цитата:
|
|
05.11.2014, 09:14 | #6 |
Участник клуба
Регистрация: 30.07.2008
Сообщений: 1,601
|
Если задан центр первого квадрата x1, y1 и отклонения вершин dx, dy (в случае квадрата dx = dy)
то в функции рекурсивно производится 4 вызова Код:
"SPACE.THE FINAL FRONTIER.This's a voyage of starship Enterprise. It's 5-year mission to explore strange new worlds,to seek out new life and civilizations,to boldly go where no man has gone before"
Последний раз редактировалось ACE Valery; 05.11.2014 в 11:48. |
05.11.2014, 09:32 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
И в чём, собственно, проблема?!
Вам дали код, рабочий. Неужели трудно переложить его на Delphi?! ладно. Держите готовый код. Выполнил исключительно из любопытства... Исходники: Sources_Squares_of_Kantor.rar EXE-шник: Kantor_exe.rar ну, и если кому вдруг интересно, там такой код: Код:
|
05.11.2014, 09:41 | #8 |
Старожил
Регистрация: 02.01.2011
Сообщений: 3,323
|
|
05.11.2014, 10:02 | #9 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
|
|
05.11.2014, 12:57 | #10 |
Старожил
Регистрация: 02.01.2011
Сообщений: 3,323
|
А я не видел вашего сообщения, так как открыл, чтобы ответить, а написал и отправил только через некоторое время. Мне кажется, что нет ничего плохого - поупражняться. И автор темы в коде может разберётся. Взаимная польза
Последний раз редактировалось 8Observer8; 05.11.2014 в 13:06. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разложение Кантора (Cantor expansion) | 3dg_fan | Помощь студентам | 3 | 12.11.2011 19:04 |
Множество, содержащее натуральные числа из первой сотни. Сформировать новое множество из простых чисел первого множества | Aimet | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 16.06.2011 20:50 |
Дано множество А, напечатать четные элементы, входящие в другое множество (Паскаль) | Марийка92 | Помощь студентам | 4 | 03.04.2011 17:38 |
Задано некоторое множество М и множество Т того же типа | dark999 | Помощь студентам | 5 | 01.04.2011 14:17 |
Рекурсивная программа в Dephi:множество кантора | Katya_Pesec | Помощь студентам | 0 | 12.06.2010 21:11 |