Игрушка "Пятнашки" в 23 строки

10.07.09

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

Игрушка "Пятнашки" в 23 строки - сделайте короче!

Скачать файлы

Наименование Файл Версия Размер
-
.1247205564 15,00Kb
26
.1247205564 15,00Kb 26 Скачать

Игрушка "Пятнашки" в 23 строки - сделайте короче!

См. также

Ралли для 1С 7.7

Игры Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Игра "Ралли" для 1С 7.7

1 стартмани

18.05.2019    8889    0    Palmer1976    1    

2

Тетрис для 1С 7.7

Игры Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Игра "Тетрис" для 1С 7.7

1 стартмани

07.05.2019    9107    1    Palmer1976    1    

0

Расписной покер для 1с 7.7

Игры Платформа 1С v7.7 Россия Абонемент ($m)

Расписной покер - игра по которой раньше в СССР проводились чемпионаты. После некоторого забвения опять завоевывает интерес.

1 стартмани

30.08.2016    16573    0    ak_register    4    

2

131072 - игра 2048 для 7.7 с сохранением

Игры Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Каждый, кто играл в эту игру хотя бы раз, задумывался о сохранении, так вот наконец-то это реализовано.

1 стартмани

22.09.2015    15312    0    sanek_kop    3    

1

Игра "2048" для 1с v7.7

Игры Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Внешняя обработка - игра "2048". Пример работы с таблицей в режиме ввода данных

1 стартмани

23.03.2015    13847    0    Tim72    1    

1

Головоломка

Игры Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Головоломка. Угадай мое число.

1 стартмани

03.11.2014    15972    0    whtblck    8    

1

Обработка - шутка, по известному "баяну" по перемешиванию букв в словах для 1C 7.7

Игры Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Пишите письма друзьям и коллегам по новому. Узнайте, с какого раза они заметят подвох!

1 стартмани

20.10.2014    13302    0    FlashC    4    

1
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. support 4484 10.07.09 10:06 Сейчас в теме
2. Арчибальд 2706 10.07.09 10:17 Сейчас в теме
А чего же начальная расстановка не задается?
3. Ёпрст 1063 10.07.09 10:39 Сейчас в теме
(2) до рандома автор еще не дошел..:)
так бы не 23 строки было..

А так - не красиво.
8. Tatitutu 3855 10.07.09 21:19 Сейчас в теме
(3) Рандом вещь хорошая но в данном случае может и не взлететь
так если нарушить порядок ходов. Можно не собрать !

+(2) да было интересней если сразу и кнопка было бы запутать , а вот потом ее собирать. ( но с другой стороны кто помнит Советское детство, именно в таком виде она и продавалась в магазине.
4. Арчибальд 2706 10.07.09 10:44 Сейчас в теме
Автор, слушай Ёпрста (с) Че.
Он "в ентом деле полиглот"...
5. Ёпрст 1063 10.07.09 10:55 Сейчас в теме
(0) 19 строк... дальше лень.. Оно нам вообще надо ?

Перем идКН0;
Процедура ПриОткрытии()
НаборЦифр="01020304050607080910111213140015"; //для проверки победы
Для Кнопка=1 по 16 Цикл
Форма.ПолучитьАтрибут("к"+Строка(Кнопка)).Заголовок(?(Сред(НаборЦифр,Кнопка*2-1,2)="00","",Число(Сред(НаборЦифр,Кнопка*2-1,2))));
идКН0=?(Форма.ПолучитьАтрибут("к"+Строка(Кнопка)).Заголовок()="","к"+Строка(Кнопка),идКН0);
КонецЦикла;
КонецПроцедуры
Процедура Ткнули(кЛ,кВ,кП,кН)
Форма.ПолучитьАтрибут(идКН0).Заголовок(?((кЛ=идКН0) или (кВ=идКН0) или (кП=идКН0) или (кН=идКН0),Форма.ПолучитьАтрибут(Форма.АктивныйЭлемент()).Заголовок(),""));
Форма.ПолучитьАтрибут(Форма.АктивныйЭлемент()).Заголовок(?(Форма.ПолучитьАтрибут(идКН0).Заголовок()<>"","",Форма.ПолучитьАтрибут(Форма.АктивныйЭлемент()).Заголовок()));
идКН0=?(Форма.ПолучитьАтрибут(Форма.АктивныйЭлемент()).Заголовок()="",Форма.АктивныйЭлемент(),идКН0);
Для Кнопка=1 по 16 Цикл
Рез=?(Форма.ПолучитьАтрибут("к"+Строка(Кнопка)).Заголовок()="",Рез+"_",Рез+Форма.ПолучитьАтрибут("к"+Строка(Кнопка)).Заголовок());
КонецЦикла;
Если Рез="123456789101112131415_" Тогда
Предупреждение("Пам-Пам-Парара-Рам! УРРРА!!! Победа!!!");
КонецЕсли;
КонецПроцедуры
6. Ёпрст 1063 10.07.09 10:56 Сейчас в теме
Рупора на вас нет..он бы всё в 1-2 строки запихал..
7. vip 10.07.09 11:01 Сейчас в теме
(6) Точно!
Большой мастер.
9. aapfps 6 13.07.09 08:53 Сейчас в теме
Как правильно сказал Tatitutu random не идет - половина расстановок не складывается, поэтому не стал его использовать. Начальную расстановку можно задать с помощью НаборЦифр. Игрушка используется в учебных целях для обучения программированию на 1С. Спасибо за проявленный интерес. Отдельное спасибо Епрст за сокращение, хотя дальнейшее сокращение строк приводит к нечитабельности текста. Хотелось бы, чтобы было просто, понятно, и минимального размера.
10. Ёпрст 1063 13.07.09 09:04 Сейчас в теме
(9) Да нунафик ?
Пятнашки всегда имеют решение !
12. Арчибальд 2706 14.07.09 09:15 Сейчас в теме
(10) +11 ...или в любом другом с нечетным количеством инверсий...
11. aapfps 6 14.07.09 08:54 Сейчас в теме
Попробуй поставить цифры в порядке 1,2,3,4,5,6,7,8,9,10,11,12,13,15,14 и решить...
13. aapfps 6 14.07.09 09:26 Сейчас в теме
Арчибальд, можно поподробнее? Как вывести условие, при котором решение есть всегда? Как определить количество инверсий?
14. Арчибальд 2706 14.07.09 09:43 Сейчас в теме
(13)Инверсия - перестановка двух соседних фишек (чисел). Для подсчета их количества можно, например, воспользоваться сортировкой методом "пузырька". Суть метода: берем максимальной число из набора, стоящее не на месте и пошагово перегоняем его в нужную позицию, считая перестановки. Затем следующее по величине. Где-то в конце 19 века было доказано, что решение существует тогда и только тогда, когда количество инверсий четно. До этого (да и после тоже) предлагалась награда за решение позиции из 11 поста, и люди ломали пальцы, выбрасывались из окон, просто сходили с ума...
ТакАаЯвотИстоооООоория....
15. Ёпрст 1063 14.07.09 09:47 Сейчас в теме
(11,14) вообще то считается - что это тоже правильный ответ..(14 и 15 когда не на своём месте).. а так да, ровно половина всех комбинаций - не выиграшная, в этом понимании.
16. aapfps 6 14.07.09 10:00 Сейчас в теме
Арчибальд, большое спасибо, суть ясна. Когда-то давно это читал, но благополучно забыл. Но реализовать это программно, наверное, малореально...нужен какой-то алгоритм перестановок для верного решения.
17. Арчибальд 2706 14.07.09 10:11 Сейчас в теме
(16) Думается, достаточно разработать алгоритм для поля 2*3 - а тут и перебор возможен.
18. Tatitutu 3855 16.12.09 16:30 Сейчас в теме
Оставьте свое сообщение