![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| vood |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 271 Регистрация: 23.2.2006 Где: Санкт-Петербург Репутация: нет Всего: 1 |
Недавно столкнулся с надобностью составления кроссвордов.
Долго бился с алгоритмом но путного ничего не придумал. Помогите алгоритмом -------------------- Вы все еще курите ? Тогда мы идем к вам |
|||
|
||||
| RomanEEP |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 424 Регистрация: 18.5.2006 Где: Коломна Репутация: 5 Всего: 8 |
Думаю такую задачу в простейшем случае можно решить и перебором:
У нас есть шаблон кроссворда - обыкноверный двухмерный массив байтов (0 - нельзя ставить символ иначе-код символа). По шаблону определяем список длин слов необходимых для кроссворда. Создаем процедуру, определяющего можно ли вставить слово в кроссворд. А потом подбираем все необходимые слова начиная с самого длинного просто перебирая заданный "словарарный запас" |
|||
|
||||
| Yanis |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2937 Регистрация: 9.2.2004 Где: Москва Репутация: 72 Всего: 111 |
||||
|
||||
| vood |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 271 Регистрация: 23.2.2006 Где: Санкт-Петербург Репутация: нет Всего: 1 |
Yanis, В точку!
Пасибо -------------------- Вы все еще курите ? Тогда мы идем к вам |
|||
|
||||
| kuzyara |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 215 Регистрация: 13.11.2006 Репутация: нет Всего: 1 |
а вот как я реализовал кроссворд в паскале:
обновлено 15.12.08 Это сообщение отредактировал(а) kuzyara - 15.2.2008, 11:13 Присоединённый файл ( Кол-во скачиваний: 57 )
11.rar 11,40 Kb--------------------
подпись |
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |