Помогите!!!!! Swi-prolog

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Ответить
Fialka
Сообщения: 2
Зарегистрирован: 14 дек 2006, 22:08

14 дек 2006, 22:16

пожалуйста, очень-очень нужно, помогите решить задачу о Ханойских башнях для N дисков на Swi-prologе. Зарание спасибо!
_Sorrey_
Сообщения: 2
Зарегистрирован: 14 дек 2006, 23:55

15 дек 2006, 00:14

Ну незнаю может тебе это поможет вот в Делфе
Procedure Pr(n,a,c,b):integer;
begin
if n=1 then writeln (a,'->',c);
else begin
Pr(n-1,a,b,c);
Pr(1,a,b,c);
Pr(n-1,b,c,a);
end;
end;
Это рекурсивная процедура, ошибки тоже не исключаю)))
Fialka
Сообщения: 2
Зарегистрирован: 14 дек 2006, 22:08

15 дек 2006, 02:08

спасибо большое, постораюсь переделать ее в прологовсий вариант :)
Ответить