Игра "5 букв"

09.01.24

Задачи пользователя - Игры

+8 –1
  • Игровое поле.png
Игра "5 Букв", сделанная на 1С. В игре загадано слово, существительное в единственном числе. Нужно отгадать загаданное слово.

Бесплатные

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО

Наименование Скачано Бесплатно
Игра "5 Букв" на 1С
.epf 59,41Kb
10 Скачать бесплатно

Нужно вписать слово и нажать на кнопку "Проверить". Если буква присутствует в слове, то она будет выделена светло голубым цветом. Если буква стоит на своем месте, то она будет выделена золотым цветом. Если буквы нет в слове, то она будет выделена серым цветом.

Работает только на управляемых формах, любой конфигурации. 

Тестировал на платформах 8.3.23.1739, 8.3.20.2180.

Вступайте в нашу телеграмм-группу Инфостарт

5 букв вродли wordle

+8 –1

См. также

Wolfenstein на 1С

Игры 1С 8.3 Бесплатно (free)

Да, это Wolfenstein на 1С, без сторонних сервисов... Только 1С, только хардкор.

24.04.2026    4999    145    darkghostterran    31    

45
Разработка игры "Магическое королевство" в 1С, версия #001

Игры 1С 8.3 Россия Бесплатно (free)

Приветствую! У меня образовалось довольно много свободного времени, и я решил посвятить его творчеству: разработке казуальной игры по шагам, демонстрируя промежуточные результаты сообществу и развивая игру по полученной обратной связи.

07.04.2026    1368    43    chuprina_as    9    

15
Конфигурация "Мастер подземелий"

Игры 1С 8.3 Россия Бесплатно (free)

Мастерам, проводящим настолки по Dangeons&Dragons, в помощь.

16.03.2026    2044    48    romba    0    

10
TETR1C - Тетрамино на 1С

Игры 1С 8.3 1С:Библиотека стандартных подсистем Бесплатно (free)

Аналог тетриса на жёлтой платформе.

12.03.2026    1533    83    SerVer1C    6    

19
Игра Три в ряд

Игры 1С 8.3 Россия Бесплатно (free)

Классическая игра Три в ряд. При образовании комбинации из 3 и более фишек они исчезают, новые фишки падают сверху, а игрок получает очки. За длинные комбинации (4-5 фишек) начисляются бонусные очки.

05.03.2026    1500    132    user2163916    4    

11
Игра Сокобан

Игры 1С:Предприятие 8 Россия Бесплатно (free)

Сокобан (Sokoban) — это классическая игра-головоломка, где игроку необходимо расставить ящики по целям, перемещая их по лабиринту.

20.02.2026    977    67    user2163916    3    

12
Шашки для 1С с турнирами и ботом

Игры 1С 8.3 Бесплатно (free)

Это расширение, практически к любой конфигурации 1С, идеально подойдёт не для того, чтобы парализовать работу организации, а для того, чтобы сформировать коллектив, объединённый общими целями, ценностями и интересами. И всё это достигается простым регулярно проводимым мероприятием по сплочению команды – шашечным турниром! В этом, не побоюсь этого слова, приложении, можно провести шашечную битву как с коллегой, так и самому с собой, если у вас раздвоение личности. А также к вашим услугам почти искусственный интеллект, то есть бот, который честно и по правилам играет с вами в поддавки, когда по правилам вы должны играть в обычные шашки.

28.12.2025    1928    129    Knyaz3d    6    

11
Система разработки видеоигр + 1С RACER (1C + DirectX)

Игры 1С:Предприятие 8 Россия Бесплатно (free)

Преврати свой 1С с обычными формами в мощную игровую консоль! И пусть баланс подождет!

13.10.2025    8960    167    slava_1c    14    

44
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Obertone 82 29.12.23 18:19 Сейчас в теме
Красиво оформленная реализация. Есть ещё пятикратная версия этой игры: https://infostart.ru/public/1603974/
+ – Ответить
2. premierex 208 30.12.23 10:59 Сейчас в теме
Прикольно! И оформление красивое, согласен с (1).
Только вот слов мало. У меня есть скачанный где-то словарь существительных из 51301 слова. Из них слов из пяти букв - 3483! Если хотите, могу скинуть.
+ – Ответить
5. APTEM_SLV 166 01.01.24 19:09 Сейчас в теме
(2) спасибо! может быть полезным! хотя я с этим словарем в 9000 слов замучился слова отбирать )
+ – Ответить
3. SerVer1C 1092 31.12.23 17:45 Сейчас в теме
Зацените мой вариант для отгадывания слов в игре от жёлтого банка. https://github.com/SerVer1C/Nwords
+ – Ответить
4. o.kovalev 130 31.12.23 20:42 Сейчас в теме
Тоже написал и "загадку" и "разгадку" и приложение для Андроид.
+ – Ответить
6. premierex 208 02.01.24 05:32 Сейчас в теме
(5) А я словарь в простенькую базу закачал. На 1С. И количество букв в словах рассчитал. Теперь есть БД со словами и описанием, а также отбором по количеству букв простеньким запросом. Хотя для этого в общем-то и не надо было рассчитывать количество букв. Всё можно запросом сделать.
+ – Ответить
7. RustIG 1954 08.01.24 16:09 Сейчас в теме
мы в семье играем на бумаге, как морской бой, только в "5 букв" - загадываем друг другу слова.
Одно подчеркивание буквы - когда буква есть, но не на своем месте.
Два подчеркивания буквы - когда буква на своем месте.
Пишем алфавит - зачеркиваем буквы, выбывающие в процессе игры.
+ – Ответить
8. premierex 208 16.02.24 03:14 Сейчас в теме
(0) Решил немного отвлечься и поиграть :) Хотел для проверки ввести слово "съезд", а буквы "ъ" нет на игровом поле. Хотя в макете есть слово "въезд", которое содержит эту букву.
Буквы "ё" тоже нет, но поскольку в макете нет слов с этой буквой, будем считать, что с имеющимся набором слов это не критично.
А вот слов, конечно, маловато.
Это так, на заметку.
+ – Ответить
9. premierex 208 16.02.24 15:20 Сейчас в теме
(5) У меня словарь содержит ~51 000 слов. И я вот не замучился.
Там так-то все просто довольно. Собираешь из словаря все слова в таблицу значений, где колонки такие:
"Наименование", "КоличествоСимволов". Впрочем, количество символов можно и в запросе вычислить.

А сам текст запроса вот такой: 

/////////////////////////////////////////////////////////////////////////////
// Помещаем данные, переданные в таблице значений, во временную таблицу запроса
ВЫБРАТЬ 
	ДанныеСловарей.Наименование, 
	ДанныеСловарей.КоличествоСимволов
	// Если версия платформа 1С позволяет,
	// можно использовать функцию, редализованную в версии 8.3.20.1549 
	// ДЛИНАСТРОКИ(ДанныеСловарей.Наименование) КАК КоличествоСимволов
ПОМЕСТИТЬ ВТ_ДанныеСловарей
ИЗ &ИсходнаяТаблица КАК ДанныеСловарей
;
////////////////////////////////////////////////////////////­/////////////////
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 1, 1) КАК Буква
ПОМЕСТИТЬ ВТ_ДанныеСловарейБуквы
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ	
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 2, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ	
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 3, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ	
ВЫБРАТЬ	ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 4, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 5, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 6, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 7, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 8, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 9, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 10, 1)
ИЗ  Справочник.ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 11, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 12, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 13, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 14, 1)
// Если 14-ти символов недостаточно, потребутся дополнить запрос до необходимого количества объединений
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
;
////////////////////////////////////////////////////////////­/////////////////
// Формирование временной таблицы, в котрую будут помещаться тройки: Наименование-Буква-КоличествоБукв
// Результат получается примерно такой:
// Это слово в следующем запросе будет исключено из результатов, букв "а" потому что больше одной
// абака-а-3 
// абака-б-1 
// абака-к-1 
// А это слово - нет. Всех букв по 1-й
// абвер-а-1 
// .........
// абвер-р-1 
ВЫБРАТЬ
	ДанныеСловарей.Наименование, ДанныеСловарейБуквы.Буква, ДанныеСловарей.КоличествоСимволов, КОЛИЧЕСТВО(ДанныеСловарейБуквы.Буква) КАК КоличествоБукв
ПОМЕСТИТЬ ВТ_БуквыИСлова
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
	ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТ_ДанныеСловарейБуквы КАК ДанныеСловарейБуквы 
	ПО ДанныеСловарей.Наименование = ДанныеСловарейБуквы.Наименование	
	И НЕ ДанныеСловарейБуквы.Буква = "" 
	// Наименования фильтруем по вхождению символов в диапазоне от "!" до "я",
	// поиск в запросе - регистронезависимый, поэтому "я" - прописная
	И НЕ ДанныеСловарей.Наименование ПОДОБНО "%[^!-я]%"
ГДЕ
// Включаем фильтр по длине слова, если задан
ВЫБОР 
	КОГДА НЕ &КоличествоСимволов = 0 
	ТОГДА ДанныеСловарей.КоличествоСимволов = &КоличествоСимволов
	ИНАЧЕ ИСТИНА	
КОНЕЦ	
СГРУППИРОВАТЬ ПО ДанныеСловарей.Наименование, ДанныеСловарей.КоличествоСимволов, ДанныеСловарейБуквы.Буква
;
////////////////////////////////////////////////////////////­/////////////////
ВЫБРАТЬ
	БуквыИСлова.Наименование, БуквыИСлова.КоличествоСимволов
ИЗ ВТ_БуквыИСлова КАК БуквыИСлова
СГРУППИРОВАТЬ ПО БуквыИСлова.Наименование, БуквыИСлова.КоличествоСимволов
// Фрагмент ниже исключает все слова, где буква(ы) встречается в слове больше одного раза
ИМЕЮЩИЕ МАКСИМУМ(БуквыИСлова.КоличествоБукв) = 1
АВТОУПОРЯДОЧИВАНИЕ
Показать


Что-то не получилось спойлер вставить. Думаю, и так читабельно будет.
На всякий случай прикреплю файлы словарей. Может, пригодятся.
Прикрепленные файлы:
russian_nouns_with_definition.rar
UNISLOV_cp_1251.rar
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация