• Авторизация


Вот пазла!!! 02-06-2006 11:23 к комментариям - к полной версии - понравилось!


Короче зашел вчера на персонализированную страничку гугла, а там всякие новости, погоду и т.п. показывают. Так вот была там и головоломка от какого-то Wei-Hwa (я б этому фей-хуа, хуа бы поатрывал!), вот надо из чисел 3, 3, 8, 8 и операций +-*/ и скобок составить выражение равное 24. Убился решать его, исписал страницу А4 тройками и восьмерками во всех мыслымых позициях. Зука, не решается... Ладно не на тех напали, написал программу (!) для поиска всех вариантов перебором, все равно нифей-хуа не нашла она... Ну думаю, цволочи, неужели наепали...
Ладно нашел в инете ответ - оказался это я со своей Прогой оПъеПался По Полной Программе. Неверно сделал одно предположение и все поиски пошли нафей-хуа. Поправил и точно, нашла прога его наконец...
Это еще раз доказывает, ПРАВИЛЬНАЯ ПОСТАНОВКА ЗАДАЧИ - 80 процентов РЕЗУЛЬТАТА.

Ну ниче, и им еще покажу фей-хуа...

Берегите фей-хуа, держите его в тепле и чистоте, чаще меняйте горшок...
вверх^ к полной версии понравилось! в evernote
Комментарии (8):
wiktor_sh 02-06-2006-11:35 удалить
... ну а так, как решается всё же задачка?
Sema638 02-06-2006-11:38 удалить
Нашел в инете на каком-то форуме:
...Мне очень нравится фейхуа, вот подумала, а почему бы ни перетереть её с сахаром на ... фейхуа. большое Всем спасибо! :) (Шанталь)
..Фейхуа точно НЕ мохнатые:))) это я могу вам заявить со всей ответственностью:))) (Liska)
А как его выбирать? (Abaya)
Sema638 02-06-2006-11:39 удалить
wiktor_sh, а ты подумай..., напиши программу :-)
Sema638 02-06-2006-11:40 удалить
а решение в принципе хитрое, я б наверно не додумался...

ОТВЕТ: 8/(3-8/3)
wiktor_sh 08-06-2006-07:10 удалить
Кстати вот пример на 1С v8.0 - работает.
Процедура КнопкаВыполнитьНажатие(Кнопка)
МассСим = Новый Массив(10);
МассСим[1] = "8";
МассСим[2] = "/";
МассСим[3] = "(";
МассСим[4] = "3";
МассСим[5] = "-";
МассСим[6] = "8";
МассСим[7] = "/";
МассСим[8] = "3";
МассСим[9] = ")";
МаксДлина = 999999999;
ДоРазрядов = 10;
БылаДлина = 0;
Каунтер = 0;
ПолучСтрока = "";
Сообщить("Время старта: "+ТекущаяДата());
Для ЗнСчетчика = 111111111 По МаксДлина Цикл
СтрЗнСчетчика = СтрЗаменить(Строка(ЗнСчетчика)," ","");
СтрЗнСчетчикаДлина = СтрДлина(СтрЗнСчетчика);
ПолучСтрока = "";
Для разряд = 1 По СтрЗнСчетчикаДлина Цикл
Попытка
ЗначРазряда = Число(Сред(СтрЗнСчетчика,разряд,1));
ПолучСтрока = ПолучСтрока + МассСим[ЗначРазряда];
Исключение
ПолучСтрока = ПолучСтрока + Сред(СтрЗнСчетчика,разряд,1);
КонецПопытки;
КонецЦикла;
результат = 0;
Попытка
результат = Окр(Вычислить(ПолучСтрока));
Исключение
КонецПопытки;
Если результат = 24 Тогда
Сообщить("Вариант перебора = "+ЗнСчетчика);
Сообщить("Строка ="+ПолучСтрока);
Сообщить("Ура, нашли!");
Сообщить("Время завершения: "+ТекущаяДата());
Прервать;
КонецЕсли;
КонецЦикла;

КонецПроцедуры
wiktor_sh 08-06-2006-07:10 удалить
чуть позже дам результаты замеров
wiktor_sh 08-06-2006-07:32 удалить
кстати вот ещё что она мне написала:
Время старта: 08.06.2006 12:12:51
Вариант перебора = 112 455 451
Строка =88/ 3-- 3-8
Ура, нашли!
Время завершения: 08.06.2006 12:32:40
Sema638 08-06-2006-12:26 удалить
Я не понял, найденная строка как-то странно выглядит... Что это за математическое выражание такое?
А так конечно круто, на 1С это еще круче :-)


Комментарии (8): вверх^

Вы сейчас не можете прокомментировать это сообщение.

Дневник Вот пазла!!! | Sema638 - Дневник Sema638 | Лента друзей Sema638 / Полная версия Добавить в друзья Страницы: раньше»