Ханойские башни. 
Программирование: delphi

Цель работы — создать компьютерную версию игры-головоломки «Ханойские башни». Игровая доска содержит семь клеток, расположенных в ряд. На трех левых клетках стоят белые фишки, на трех правых — черные. Центральная клетка пуста. Задача заключается в том, чтобы, делая допустимые ходы, поменять фишки местами. Правила ходов такие.

• 1. Белые фишки могут ходить только вправо, а черные — только влево.
• 2. Ходить разрешается только на свободное поле.
• 3. Разрешены перемещения на соседнее поле и «прыжок» через одну фишку.

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

Рис. 82. Окно разработанной программы

Описание плана разработки программы

• 1. Откройте новый проект.
• 2. Разместите на форме экземпляры компонентов: панель Panel, кнопка с изображением BitBtn.
• 3. Выполните действия, перечисленные в табл. 42.
• 4. Сохраните проект.
• 5. Создайте рисунки при помощи стандартной программы Paint. Задайте размеры рисунков 45×45 пикселов (в режиме увеличения).

• 6. Создайте две картинки с именами Left. bmp и Right. bmp, поместите их в папку проекта. Рисунок с именем Left. bmp предназначен для левых кнопок, рисунок с именем Right. bmp — для правых кнопок.
• 7. Назначьте рисунки кнопкам (см. табл. 42).

Таблица 42

• 8. Необходимо хранить два числа: номер клетки, в которой находится кнопка; признак «цвета» фишки", т. е. в какую сторону может ходить кнопка.
• 9. Номер клетки умножьте на два. Если фишка черная, прибавьте к числу единицу.
• 10. Задайте свойство Tag (Тег) для всех кнопок (табл. 43).

Таблица 43

11. Создайте дополнительную переменную для пустой клетки.

var n: Integer = 4;

12. Создайте глобальную переменную.

win: Integer = 24; { бее фишки в сумме должны переместиться

на 24 клетки}.

13. Запрограммируйте выполнение хода фишки (табл. 44).

Таблица 44

14. Сохраните проект, запустите и протестируйте его.

Листинг подпрограммы

procedure TForml. BitBtnlClick (Sender: TObject); var.

i, c, k, ak: Integer; begin.

// объект Sender используется многократно with Sender as TBitBtn do.

// свойство Tag указывает, какая именно кнопка нажата begin.

// переменная г хранит номер клетки, где находится кнопка i := Tag div 2;

// переменная с определяет цвет фишки с: = Tag mod 2;

// k — величина перемещения k := n — i;

ak := Abs (k); // о/? — длина хода

if ак < 3 then // проверка допустимости хода

// белые фишки могут ходить только вправо, черные — влево if ((с = 0) and (к > 0)) or ((с = 1) and (к < 0)) then // делаем ход begin.

Tag := Tag + 2 * к;

Left := Left + 56 * к;

// при каждом ходе уменьшается значение // переменой win на длину хода win := win — ak;

// пустая клетка находится там, где раньше была фишка n := i; end;

end;

if win = 0 then // проверка завершения решения begin.

Caption := ' Победа ! ';

Panell.Color := clFuchsia;

// отключаем панель, и одновременно все // расположенные на ней объекты Panell. Enabled := False; end; end;