Федеральное агентство по образованию

Государственное образовательное учреждение

Высшего профессионального образования

Камская государственная инжинерно-экономическая академия

Кафедра «ПИУ»

Контрольная работа

по дисциплине «Система искусственного интеллекта»

на тему: игра «Крестики-нолики»

Выполнила: студентка гр. 4468-с

Рысева Татьяна Александровна

Проверил: Калимуллин А.Ш..

Набережные Челны – 2010

Содержание

1 Постановка задачи. 3

2 Интерфейс пользователя. 4

3 Алгоритм работы программы.. 7

4 Результат решения. 12

Список использованных источников. 16

1 Постановка задачи

Задание: составить программу, осуществляющую игру «крестики-нолики» с пользователем. При этом она будет иметь возможность запоминания ходов и на основе них ходить так чтобы не оказаться в проигрыше.

Крестики нолики основаны на игре в процессе которого два игрока рисуют на поле нули и крестики, в нашем случае игра будет проходить на поле 3 на 3. Один игрок рисует только крестики, в нашем случае пользователь. Второй игрок рисует нули – компьютер. Игра продолжается до тех пор пока один из игроков не нарисует свои символы (то есть крестик или нолик), так что они находятся в одном ряду по три штуки. Также идет подсчет по диагонали. Игра также считается законченной если не осталось мест на поле и в этом случае объявляется ничья.

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

Кроме этого, необходимо создать базу данных для сохранения знаний полученных, программой интеллекта. Также иметь возможность использования полученных знаний.

Для выполнения этой работы была выбрана среда программирования Delphi 7, так как она является наиболее удобной и понятной. Базу знаний будем хранить в таблице в базе данных MS Access, что облегчает просмотр таблицы без использования каких либо других программ.

Алгоритм выполнения данных действий рассмотрим далее.

2 Интерфейс пользователя

Запуск игры осуществляется двойным щелчком по krestiki_noliki.exe. После этого появляется окно программы с полем для игры (рисунок 1).

Рисунок 1 – Главная окно программы

Программа также содержит меню, состоящее из меню «Файла» и «Справки». В свое время меню «Файл» содержит в себе подменю «Новая игра», «Очистить базу» и «Выход». «Новая игра» нужна для начала игры, «Очистить базу» - удаляет все записи сделанные программой в базу знаний, «Выход» - для окончания работы с программой. «Справка» состоит из одного пункта подменю «О программе», которая выводит информацию о том, кто сделал эту программу (рисунок 2).

Рисунок 2 – О программе

Начало игры выполняется с процесса нажатия на поле левым щелчком мыши. Выполняем ход, в ответ на наш ход программа в начале начинает ходить наугад. В итоге мы выигрываем:

Рисунок 3 – Окно нашего выигрыша

Попытаемся проделать данную схему выигрыша повторно, и получаем ответ от компьютера в виде препятствия ноликом в нашем направлении. Что мы видим на рисунке 3.

Рисунок 4 – Выбор компьютером хода, препятствующий нашему выигрышу
В итоге проиграв этим способом получаем ничью:

Рисунок 5 – Окно ничьи

Повторим схему еще раз и получаем проигрыш:

Рисунок 6 – Окно нашего проигрыша

3 Алгоритм работы программы

Главное окно программы состоит из трех процедур и нескольких «ответных реакций» на события компонентов.

Рассмотрим подробнее каждую процедуру:

1. Процедура очистки, называется «clean». Здесь происходит очистка полей.

 

Form1.Panel2.Caption:='';

 

2. Процедура «game», которая проверяет статус игры и выводит соответствующее сообщение при выигрыше, проигрыше и ничье.

Здесь проверяется выигрыш на равенство соответствующих ячеек поля согласно условиям игры «крестики-нолики», например равенство первого столбца:

 

if (Form1.Panel2.Caption=Form1.Panel3.Caption) and (Form1.Panel2.Caption=Form1.Panel4.Caption) and (Form1.Panel2.Caption<>'') then begin

Если данное условие выполняется выводится окно выигрыша с соответствующим значением:

 

Form3.Label1.Caption:=Form1.Panel2.Caption; // Если выигрышная комбинация то присваиваем Х или О в Лейбл формы поздравления

…

Form3.ShowModal; // Открываем окно поздравления ":-)"

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

 Form1.adotable1.Insert;

 if (Form1.Panel2.Caption='X') then begin

 Form1.adotable1xod1.Value:=Form1.Panel10.Caption;

 Form1.adotable1xod2.Value:=Form1.Panel2.Caption;

 Form1.adotable1xod3.Value:=Form1.Panel3.Caption;

 Form1.adotable1xod4.Value:=Form1.Panel4.Caption;

 Form1.adotable1xod5.Value:=Form1.Panel5.Caption;

 Form1.adotable1xod6.Value:=Form1.Panel6.Caption;

 Form1.adotable1xod7.Value:=Form1.Panel7.Caption;

 Form1.adotable1xod8.Value:=Form1.Panel8.Caption;

 Form1.adotable1xod9.Value:=Form1.Panel9.Caption;

 Form1.adotable1game.Value:=1;

 end;

Тут же происходит вызов процедуры очистки поля игры.

 

 clean; // Очистка игрового поля

Кроме выигрыша и проигрыша, есть возможность ничьи. ............