У кого нить есть пример Ханойской Башни

[kolduev]

У кого нить есть пример Ханойской Башни, а то по тому алгоритму я ваще ничё не понимаю, игру надо сделать на Delphi, я так понимаю колышки и диски нада делать компонентом Shape! Но нифига не получается реализовать эту задачу((

[KORT]

На паскале:

program Hanoi_Towers;
uses Crt;
var n : Integer;
procedure Move_Disks (n : Byte; Source, Dest, Tmp : Char);
{ n      - Число дисков на столбике Source             }
{ Source - Исходный столбик                            }
{ Dest   - Столбик, на который нужно переставить диски }
{ Tmp    - Вспомогательный столбик                     }
begin
    if n = 1 then
      Writeln('Переставить диск номер 1 со столбика ',
               Source, ' на столбик ', Dest)
    else begin
{Переставляем n-1 верхних дисков с исходного столбика на}
{вспомогательный, используя целевой диск как промежуточный}
      Move_Disks ( n-1, Source, Tmp, Dest );
      Writeln('Переставить диск номер ', n:1, ' со столбика ',
               Source, ' на столбик ', Dest);
{Переставляем все n-1 диск, расположенные на вспомогательном}
{ столбике, на целевой, используя исходный диск как
  промежуточный }
      Move_Disks ( n-1, Tmp, Dest, Source);
    end
end;
begin
  ClrScr;
  Write('Введите число дисков: ');
  Readln(n);
  Writeln;
  Writeln('Последовательность инструкций для решения задачи:');
  Writeln;
  Move_Disks (n, 'A', 'C', 'B')
end.

[kolduev]

блин, который раз вижу этот алгоритм, но никак не пойму как сделать на Delphi с колышками и дисками(( чтоб можно было вручную диски перемещать!!!

[_Dmitry]

Держи пример. Но над ним еще работать и работать.

[kolduev]

ну вот теперь интересно как это совместить с тем самым алгоритмом! мож я дурак какой , но чес слово в голове не укладывается! подскажите!!!

[Serge_Bliznykov]

kolduev, а собственно, КАКАЯ у вас стоит задача?
Если реализовать игру "Ханойская Башня" - чтобы человек сам её решал (путём перекладывания колечек с колышка на колышек), - то Вам нужно взять пример, столь любезно предоставленный _Dmitry и добавить в него проверку на возможные перемещения (т.е. реализовать ПРАВИЛА перекладывания - ну, можно брать только верний диск, меньший можно положить на больший и т.д.), возможные фишки - подсчёт числа перемещений, учёт времени, анимация, звуковый эффекты, музыка и т.д...
Приведённый выше код - РЕШАЕТ задачу - т.е. он выдаёт список и последовательность дисков, которые нужно переложить, чтобы решить задачу.
Его вы можете вставить в программу только в том случае, если у Вас программа будет САМА перекладывать диски - т.е. компьютер будет "показывать" игроку/зрителю, как задача решается... без его участия в перетаскивании дисков.
Разумеется можно совместить эти варианты (например, кнопочка "Подсказка" может показывать человеку какой диск и куда перекладывать следующий...

[kolduev]

вот у меня например 6 дисков Panel, как сделать чтобы можно было брать тока верхний, меньший ложить на больший, да и чтоб учитывалось на каком колышке какой диск лежит!

[_Dmitry]

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

Пример => пост #10

[kolduev]

спасибо! это уже хоть чтото!
но последний вопрос остаётся актуальным!!

[_Dmitry]

Вводите дополнительные переменные, массивы и храните промежуточные результаты