Практичесl= 2;ая работа № 15

Пр= ;актическая работа № 15

«Х= ;анойские башни»

Цель работы - созk= 6;ать компьютернm= 1;ю версию игры-голово = 83;омки «Ханойские башни». Игровая доска содер = 78;ит семь клеток, расположенl= 5;ых в ряд. На трех левых клетках стоят белые фишки, на тре&#= 1093; правых – черные. Центральнаn= 3; клетка пуста. Задач= 072; заключаетсn= 3; в том, чтобы, делая допустимые ходы, поменять фишки места = 84;и. Правила ходов такие.

1.&n= bsp; Белые фишки могут ходить только вправо, а чер&#= 1085;ые – только влево.

2.&n= bsp; Ходить разрешаетсn= 3; только на свободное п = 86;ле.

3.&n= bsp; Разреше&#= 1085;ы перемещениn= 3; на соседнее поле и «прыжок» через одну фишку.

h= 2; роли фишек выступают кнопки с изображениk= 7;м, например, цветных треугольниl= 2;ов, направленнm= 9;х так, чтобы они указывали допустимое направлениk= 7; ходов. Кнопк= 080; будут передвигатn= 0;ся по игровой доске, созданной при помощи панели.

Опис= 072;ние плана разработки программы<= /b>

1.&n= bsp;     Открыть новый проек = 90;.

2.&n= bsp;     Размест&#= 1080;ть на форме экземпляры компонентоk= 4;: панель Panel, кнопка с изображениk= 7;м BitBtn.

3.&n= bsp;     Выполни&#= 1090;ь следующие действия:

Таблица 15.

Выделе = 85;ный объект

Вкладк = 72; окна

Object Inspector<= /o:p>

Имя свойства/

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Головолом= 082;а»

Panel1

(Вкладк = 72; St= andard)

Properties

Height

Присвои= 090;ь значение 65

Width

Присвои= 090;ь значение 401

Caption

Очистит= 100; значение

BitBtn1=

(Вкладк = 72; Ad= ditional)

<= /o:p>

Properties

Height

Присвои= 090;ь значение 49

Width

Присвои= 090;ь значение 49

Left

Присвои= 090;ь значение 8

Top

Присвои= 090;ь значение 8

BitBtn2

<= /o:p>

Properties

Height

Присвои= 090;ь значение 49

Width

Присвои= 090;ь значение 49

Left

Присвои= 090;ь значение 64

Top

Присвои= 090;ь значение 8

BitBtn3

Properties

Height

Присвои= 090;ь значение 49

Width

Присвои= 090;ь значение 49

Left

Присвои= 090;ь значение 120

Top

Присвои= 090;ь значение 8

BitBtn4

<= /o:p>

Properties

Height

Присвои= 090;ь значение 49

Width

Присвои= 090;ь значение 49

Left

Присвои= 090;ь значение 232

Top

Присвои= 090;ь значение 8

BitBtn5

<= /o:p>

Properties

Height

Присвои= 090;ь значение 49

Width

Присвои= 090;ь значение 49

Left

Присвои= 090;ь значение 288

Top

Присвои= 090;ь значение 8

BitBtn6

Properties

Height

Присвои= 090;ь значение 49

<= /o:p>

Width

Присвои= 090;ь значение 49

<= /o:p>

Left

Присвои= 090;ь значение 344

<= /o:p>

Top

Присвои= 090;ь значение 8

4.&n= bsp;     Сохрани&#= 1090;е проект.

5.&n= bsp;     Создать рисунки при помощи стандартноl= 1; программы Paint. За= дайте размеры рисунков 45x45 пикс&#= 1077;лов (в режиме увеличения).

6.&n= bsp;     Создать две картинк = 80; с именами Left.bmp и Right.bmp, поместит= ь их в папку проекта. Рис= 091;нок с именем Left.bmp пред= 085;азначен для левых кнопок, рисунок с им= 077;нем Right.bmp R= 11; для правых кнопок.

7.&n= bsp;     Назначи&#= 1090;ь рисунки кнопкам.

Продолжени= ;е таблицы 15.

BitBtn1, BitBtn2, BitBtn3, BitBtn4, BitBtn5, BitBtn6

<= /o:p>

<= /o:p>

Properties

Caption

Очистит= 100; значение

Glyph (Значок)

Щелкнут= 100; на кнопке построител= 103;. Открыть окн&#= 1086; Picture Editor. Щелкl= 5;ите на кнопке Load= . В диалоговом окне выберете файл с изображени= 077;м кнопки и щелкните на кнопке Открыть. Щелкнуть на кнопке Ok, и выбранная картинка по&#= 1103;вится на кнопке.

8.&n= bsp;     Необход&#= 1080;мо хранить два числа: номер клетки, в которой находится кнопка; признак «цв = 77;та» фишки», т.е. в какую сторону может ходит= 00; кнопка.

9.&n= bsp;     Номер клетки умножить на два. Если фишка черна= 03;, прибавить к числу единицу.

10.&= nbsp; Задать свойство Tag (Тег) для всех кнопок.

Таблица 16.

Значени= 077; свойства Tag<= /span>

Коммент= 072;рий

2

Первая клетка, белая фишка

4

Вторая клетка, белая фишка

6

Третья клетка, белая фишка

11

Четверт= 072;я клетка, черн&= #1072;я фишка

13

Пятая клетка, черн&= #1072;я фишка

15

Шестая клетка, черн&= #1072;я фишка

11.&= nbsp; Создат= 100; дополнителn= 0;ную переменную для пустой клетки

var n: Integer =3D 4;

12.&= nbsp; Создат= 100; глобальную переменную

win : Integer =3D 24; {все фишки в сумм= 077; должны переместитn= 0;ся на 24 клетки}

13.&= nbsp; Програ= 084;мируем выполнение хода фишки.

Таблица 17.

Выделе = 85;ный объект

Вкладк = 72; окна

Object Inspector<= /o:p>

Bмя события

Действ = 80;е

BitBtn1=

Events

OnClick

В процед&#= 1091;ру BitBtn1Click передаетс= ;я параметр – о&= #1073;ъект Sender. i= 4;н представля= 077;т именно тот объект, который вызвал событие, и может дать доступ к его = свойствам. Надо специально указать, что объект Sender в данном случае следует считать кнопкой. Чтобы обратиться к свойству Tag данного объекта, записывают (<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'>Sender as TBitBtn).Tag.

14.&= nbsp; Сохра= ните проект, запустите и протестируl= 1;те его.

Лист= 080;нг подпрогра&= #1084;мы

procedure TForm1.BitBtn1Click (Sender: TObject);

var i, c, k, ak: Integer;<= /p>
begin

with Sender as TBitBtn do   {объ= ;ект Sender = используетl= 9;я многl= 6;кратно}

begin        =             &nb= sp;            = {свойство Tag указывает, какая именн = 86; кнопка нажата}

i :=3D Tag div 2;        =          {переменна= 03; i = хранит номер клетк = 80;, где находится кнопка}

с :=3D Tag mod 2;        =        {переменна= 03; c = определяеm= 0; цвет фишки}

k :=3D n – i;        =             &nb= sp;   {k ̵= 1; величина перемещениn= 3;}

ak :=3D Abs (k);        =          {ak – дли&#= 1085;а хода}

if<= span lang=3DEN-US> a= k < 3 then         =            {&= #1087;роверка допустимосm= 0;и хода}

if ((c =3D 0) and= (k > 0)) or ((c =3D 1 ) and (k < 0))   {бе= ;лые фишки могут ходить только вправо, черн= 099;е - влево}

then         = {делаем ход}

begin

Tag :=3D Tag + 2 * k;
Left :=3D Left + 56 * k;

win :=3D win – ak; {при каждом ходе уменьшаетсn= 3; значение переменой win на длину хода}

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

end= ;

end= ;

if<= span lang=3DEN-US> w= in =3D 0 then         =               =   {проверка завершения решения}

begin

Caption :=3D ‘По= беда!’;<= /p>
Panel1.Color :=3D clFuchsia;

Panel1.Enabled :=3D False;   {откл= ;ючаем панель, и одновременl= 5;о все расположенl= 5;ые на ней объек= 090;ы}

end= ;

end;

Выделе = 85;ный объект	Вкладк = 72; окна Object Inspector<= /o:p>	Имя свойства/ имя события	Действ = 80;е
Form1	Properties	Caption	Установ= 082;а имени формы «Головолом= 082;а»
Panel1 (Вкладк = 72; St= andard)	Properties	Height	Присвои= 090;ь значение 65
Width	Присвои= 090;ь значение 401
Caption	Очистит= 100; значение
BitBtn1= (Вкладк = 72; Ad= ditional) <= /o:p>	Properties	Height	Присвои= 090;ь значение 49
Width	Присвои= 090;ь значение 49
Left	Присвои= 090;ь значение 8
Top	Присвои= 090;ь значение 8
BitBtn2 <= /o:p>	Properties	Height	Присвои= 090;ь значение 49
Width	Присвои= 090;ь значение 49
Left	Присвои= 090;ь значение 64
Top	Присвои= 090;ь значение 8
BitBtn3	Properties	Height	Присвои= 090;ь значение 49
Width	Присвои= 090;ь значение 49
Left	Присвои= 090;ь значение 120
Top	Присвои= 090;ь значение 8
BitBtn4 <= /o:p>	Properties	Height	Присвои= 090;ь значение 49
Width	Присвои= 090;ь значение 49
Left	Присвои= 090;ь значение 232
Top	Присвои= 090;ь значение 8
BitBtn5 <= /o:p>	Properties	Height	Присвои= 090;ь значение 49
Width	Присвои= 090;ь значение 49
Left	Присвои= 090;ь значение 288
Top	Присвои= 090;ь значение 8
BitBtn6	Properties	Height	Присвои= 090;ь значение 49
<= /o:p>		Width	Присвои= 090;ь значение 49
<= /o:p>		Left	Присвои= 090;ь значение 344
<= /o:p>		Top	Присвои= 090;ь значение 8

Значени= 077; свойства Tag<= /span>	Коммент= 072;рий
2	Первая клетка, белая фишка
4	Вторая клетка, белая фишка
6	Третья клетка, белая фишка
11	Четверт= 072;я клетка, черн&= #1072;я фишка
13	Пятая клетка, черн&= #1072;я фишка
15	Шестая клетка, черн&= #1072;я фишка