Новости образования

[• MayBee]

Пожалуйста, нумеруйте задачи для удобства решающих и задающих.

Сообщение отредактировал MayBee - Oct 3 2009, 18:24

--------------------

Всё приходит. И это придёт. :)

[• jan]

Начну... Старая задачка...

Задача №1

Сообщение отредактировал MayBee - Apr 17 2009, 12:40

Присоединённые эскизы


--------------------

Нет, не вирусолог. И даже не политолог.

[• SiMM]

Действительно, до жути старая
8/3 <> 5/2

--------------------

Михаил Светлов Светов - мой идеал либертарианца!

[• garret]

Решите, арифметический ребус, изображённый на рисунке. Одинаковым буквам соответствуют одинаковые цифры, разным - разные.



--------------------

... ломается музыкальная установка. В такие минуты спеши слушать тишину.

[• garret]

"5-этажный цикл"

Решение с помощью программы на QBasic. Здесь используется система циклов с многоуровневым вложением. В программе был использован метод отсечения бесполезных ветвей поиска, что значительно уменьшает время поиска на 286 процессоре.

Исходный код

CLS
kol = 0
FOR k1 = 1 TO 9
 FOR k2 = 0 TO 9
   IF (k2 <> k1) THEN
     FOR k3 = 2 TO 9
       IF (k3 <> k1) AND (k3 <> k2) THEN
         FOR k4 = 1 TO 9
           IF (k4 <> k1) AND (k4 <> k2) AND (k4 <> k3) THEN
             FOR k5 = 0 TO 9
               IF (k5 <> k1) AND (k5 <> k2) AND (k5 <> k3) AND (k5 <> k4) AND (ABS((k1 * 10 + k2) ^ k3 - (k4 * 100 + k5 * 10 + k1)) < .001) THEN
                 kol = kol + 1
                 PRINT k1; k2; k3; k4; k5
               END IF
             NEXT k5
           END IF
         NEXT k4
       END IF
     NEXT k3
   END IF
 NEXT k2
NEXT k1
PRINT "Kolichestvo "; kol

Сообщение отредактировал garret - Mar 22 2009, 16:14

--------------------

... ломается музыкальная установка. В такие минуты спеши слушать тишину.

[• Мак Сим]

Решите, арифметический ребус

19^2=361.
Элементарный перебор:
1) "п" может быть только 2, т.к. уже 10^3>1000
2) Т.К. 32^2>1000, то "не"<32, т.е. "н" иожет быть 1,2 или 3. Однако точные квадраты на 2 и 3 заканчиваться не могут, значит "н"=1.
3) Если квадрат заканчивается на 1, то само число - на 1 или 9. Единица уже занята.
4) проверкой убеждаемся, что 19^2=361 - удовлетворяет условию задачи.

--------------------

Господь на своем суде ВАКовский список учитывать не будет.

[• SiMM]

Решение с помощью программы на QBasic.

ИМХО, такие задачи таким образом не решаются. Вернее, ответ узнать, конечно, так можно - но это - не решение.

--------------------

Михаил Светлов Светов - мой идеал либертарианца!

[• itROOT]

ИМХО, такие задачи таким образом не решаются. Вернее, ответ узнать, конечно, так можно - но это - не решение.

Порный ... простите полный перебор - чем не решение?

[• Web-master]

Это для конкретного случая только..

[• garret]

Это для конкретного случая только..

Согласен. Но графоманствующие гурманы (вроде меня) могут быстро перестраивать подобные программы.

Вообще подобные задачи удобно решать с применением "языков искусственного интеллекта", к коим можно отнести и язык Prolog.

Решение с помощью Turbo Prolog


Задаём правила среде Turbo Prolog. Вот они, записанные на соответствующем языке.

Исходный код

domains
 i=integer
 sp=integer*
 
predicates
  /* Предикат для задания множества целых чисел на отрезке */
 interval(i,i,i).
 cipher(i).  /* Множество цифр */
 extendet(i,i,i).  /* Правило возвеления в степень */
 solve(i,i,i,i,i)  /* Решение математического ребуса */
clauses
 interval(A,_,A).
 interval(A,B,X):-A<B, A2=A+1, interval(A2,B,X2), X=X2.  
 cipher(X):-interval(0,9,X).
 extendet(_,0,1).
 extendet(A,B,C):- B>0, B2=B-1, extendet(A,B2,C2), C=C2*A.
 solve(N,E,P,T,U):-
   cipher(N),
   cipher(E), N<>E,
   cipher(P), N<>P, E<>P,
   cipher(T), N<>T, E<>T, P<>T,
   cipher(U), N<>U, E<>U, P<>U, T<>U,
   A1=N*10+E, extendet(A1,P,C1), C1=T*100+U*10+N.

Диалог со средой Turbo Prolog.





--------------------

... ломается музыкальная установка. В такие минуты спеши слушать тишину.

[• ComPit]

А вот новая задача на такую же тему:

Можно ли вместо звёздочек вставить в выражение
НОК(*,*,*) – НОК(*,*,*) = 2009
в некотором порядке шесть последовательных натуральных чисел так, чтобы равенство стало верным?

Естественно, задача математическая, а не программистская.

--------------------

Sapienti sat
Стишки

[• garret]

Можно ли вместо звёздочек вставить в выражение
НОК(*,*,*) – НОК(*,*,*) = 2009
в некотором порядке шесть последовательных натуральных чисел так, чтобы равенство стало верным?

Разговор о натуральных числах вида N, N+1, N+2, N+3, N+4, N+5???

Сообщение отредактировал garret - Mar 29 2009, 19:36

--------------------

... ломается музыкальная установка. В такие минуты спеши слушать тишину.

[• ComPit]

Условие переписано один к к одному, но Ваше уточнение можно подтвердить.

--------------------

Sapienti sat
Стишки

[• Лайт]

Простая задачка на взвешивания (надеюсь, не ошибся темой)

Задача №2

Очень умный Правитель содержит монетный двор, на котором работают 100 рабочих. Каждый день он выдает каждому рабочему по 1 кг золота, из которого рабочий должен изготовить 100 монет (по 10 г). Правителю стало известно, что один из его рабочих делает фальшивые монеты - на 1 г легче. Как Правителю при помощи одного взвешивания точно определить фальшивомонетчика? Используются весы со стрелкой, т.е. не чашечные.

Условие задачи достаточное. Одно взвешивание - это однократное снятие показания с весов. Монеты резать нельзя.
Надеюсь, что люди не будут искать в интернетах решение задачи, решать которую их никто не обязывает и никаких призов за это не даст И не публикуйте правильный ответ, если вы до него додумались. Напишите в ПМ, а я подтвержу, что вы решили правильно.

Сообщение отредактировал MayBee - Apr 17 2009, 12:41

--------------------

ничего тут нет

[• Лайт]

jazis, ответ зачтен
После 5-го правильного ответа дам его здесь и напишу следующую задачу... Если это кому-то будет интересно

--------------------

ничего тут нет

[• Лайт]

Мак Сим - абсолютно верно

--------------------

ничего тут нет