Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Visual Prolog 5.2] Принцип действия

Автор: donata 17.5.2008, 19:58

Обьяснить принцип действия этой программы, по решению головоломки "Ханойские башни" Код domains i=integer   s=symbol predicates han(i) переместить(i,s,s,s) запись_о_перем(s,s) clauses han(N):-переместить (N,лев,средн,прав). переместить(1,A,_,C):-запись_о_перем (A,C),!. переместить(N,A,B,C):-N1=N-1, переместить(N1,A,C,B), запись_о_перем(A,C), переместить(N1,B,A,C). запись_о_перем(S1,S2):-nl,write("переместить с"," ",S1," ", "на"," ",S2).     goal     han(3)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)