Помогите с "Ханойскими башнями"

[Solny6ko YasnoE]

Дорогие мои!!! Мне надо курсовую сдавать..... а у меня ничего нет!!! Программка вот такая:

Есть три стержня A, B, и C. На стержень A надето N дисков, наверху самый маленький, каждый следующий диск больше предыдущего, а внизу самый большой. На другие стержни дисков не надето.
Hеобходимо перенести диски со стержня A на стержень C, пользуясь стержнем B, как вспомогательным, так, чтобы диски на стержне C располагались в том же порядке, в каком они располагаются на диске A перед перемещением. При перемещении никогда нельзя класть больший диск на меньший.
Все это надо сделать на Delphi с формой, чтобы пользователь мог сам переносить диски.... ПОЖАЛУЙСТА ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!

[Shuraken]

В инете есть замечательный файл помощи drkb.chm. Скачай его, там много интересного, а на твой вопрос:

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



type
THanoiPin = 0..2;
THanoiLevel = 0..9;





procedure MoveDisc(FromPin, ToPin : THanoiPin; Level : THanoiLevel);
// Это Вы должны сделать сами. Переместите один диск с одного штырька на другой.
// Диск окажется наверху (естественно, выше него дисков не будет)




Вы можете каким угодно образом перемещать диски 3-х пирамид. 3 пирамиды - наиболее простая разновидность алгоритма. Таким образом процедура переноса диска (MoveDisc) аналогична операции переноса диска на верхний уровень (MoveTopDisc): переместить диск наверх с одного штырька (FromPin) на другой штырек (ToPin) и передать указатель на штырек-приемник (MoveTower) вместе с уровнем расположения перемещенного диска. Другое решение заключается в использовании трех массивов [THanoiLevel] логического типа. В этом случае триггер "Истина (True)" означает наличие на пирамиде диска с размером, соответствующим порядковому номеру элемента массива THanoiLevel.



procedure MoveTower(FromPin, ToPin : THanoiPin; Level : THanoiLevel);
begin
if HanoiLevel <= High(THanoiLevel) then
begin
MoveTower(FromPin, 3 - FromPin - ToPin, Level + 1);
MoveDisc(FromPin, ToPin, Level);
MoveTower(3 - FromPin - ToPin, ToPin, Level + 1);
end;
end;




Чтобы переместить пирамиду целиком, вы должны вызвать процедуру MoveTower следующим образом:



MoveTower(0, 1, Low(THanoiLevel));


Взято с www.delphiworld.narod.ru

[Solny6ko YasnoE]

Это я уже видела!!!! Спасибо тебе, конечно, ОГРОМНОЕ!!! Но просто сейчас реально времени нет..... Может у кого-нибудь есть уже готовая программка?? Если есть я буду ОЧЕНЬ благодарна!!!!

[Carbon]

const N=10;

procedure Hanoy(A,B,C:char; count:integer);
begin
   if count>0 then
   begin
      Hanoy(A,C,B,count-1);
      Writeln('From '+A+' to '+C);
      Hanoy(B,A,C,count-1);
   end
end;

begin
  Hanoy('A','B','C',N)
end.

[Solny6ko YasnoE]

Понимаешь, мне на Дельфи надо!!!!!!!!!!! На Паскале-то я уже сделала!!!

[AVer]

Так в чем проблема? Портировать с Паскаля на Делфи? Скинь наработки, раз есть...

[Carbon]

Берём объект ListBox1, кидаем на форму, берём кнопку Button1, кидаем на форму, пишем:

const N=10;

procedure Hanoy(A,B,C:char; count:integer);
begin
if count>0 then
begin
Hanoy(A,C,B,count-1);
Form1.ListBox1.Items.Add('From '+A+' to '+C);
Hanoy(B,A,C,count-1);
end
end;

2 раза щёлкаем по кнопке. В появившейся процедуре пишем:


Hanoy('A','B','C',N)

[Solny6ko YasnoE]

Люди!!!! Вот вроде с игрой у меня все получилось, теперь мне бы на Дельфи написать демо-версию этой игры, т.е. чтобы она показывала сама все ходы - передвигала эти самые блоки!!! Буду очень благодарна!!!!!!!!!!!!!

[SuperVisor]

В каждом цикле (а точнее в одном) делаем прорисовку параметров и паузу.

[kolduev]

с алгоритмом понятно, но как это всё привязать к компонентам, мож я чё не понимаю... из чего тогда делать колышки и диски?