Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 602

•  TDictionary Custom Sort  6 609

•  Fast Watermark Sources  6 385

•  3D Designer  9 332

•  Sik Screen Capture  6 714

•  Patch Maker  7 101

•  Айболит (remote control)  7 105

•  ListBox Drag & Drop  5 968

•  Доска для игры Реверси  97 522

•  Графические эффекты  7 304

•  Рисование по маске  6 594

•  Перетаскивание изображений  5 467

•  Canvas Drawing  5 839

•  Рисование Луны  5 554

•  Поворот изображения  5 071

•  Рисование стержней  3 638

•  Paint on Shape  2 874

•  Генератор кроссвордов  3 766

•  Головоломка Paletto  3 027

•  Теорема Монжа об окружностях  3 840

•  Пазл Numbrix  2 526

•  Заборы и коммивояжеры  3 232

•  Игра HIP  2 198

•  Игра Go (Го)  2 129

•  Симулятор лифта  2 510

•  Программа укладки плитки  2 155

•  Генератор лабиринта  2 648

•  Проверка числового ввода  2 309

•  HEX View  2 642

•  Физический маятник  2 265

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Ханойская башня



Тяжёлое детство: восьмибитные игрушки.

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


type
  THanoiBin = 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)); 





Похожие по теме исходники

Ханойская башня




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте