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

 

Заключение

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

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

      Что касается практической части, то мною был разработан программный продукт  «Игра «100 спичек».

      Таким образом я считаю, что поставленные цели, заявленные во введении мной были выполнены.

 

Приложение 1. Блок-схема.

Рисунок 8 блок-схема

 

Приложение 2. Код программы.

program progacurs_ov;

{$APPTYPE CONSOLE}

uses

windows,

CRT;

const InitialCount=100;

var S,N,Player,k: integer; Correct: boolean;

begin

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

writeln('                     ИГРА 100 СПИЧЕК!');

writeln('                      ПРАВИЛА ИГРЫ:');

writeln('         Из кучки, первоначально содержащей 100 спичек,');

writeln('       двое играющих поочередно берут по несколько спичек:');

writeln('             не менее одной и не более десяти.');

writeln('            Выигрывает игрок, взявший последнюю спичку.');

writeln('Данная игра позволяет играть с компьютером или с другим пользователем');

writeln('       Для того, чтобы выбрать нажмите соответствующую цифру');

writeln('         Кол-во спичек выбирается также набором цифр');

writeln;

writeln;

writeln(' Для перехода к игре нажмите Enter');

readln;

ClrScr;

repeat

writeln('     Играть с компьютером (1), играть c человеком (2): ');

readln(k);

correct:=(k>=1) and (k<=2);

if not correct then

writeln('          Неправильно выбрано число игроков');

until correct;

if k=1  then

begin

player:=1;

S:=InitialCount;

ClrScr;

repeat

if Player=1 then

begin

repeat

writeln('         Ваш ход. На столе ',S,' спичек.');

writeln('             Сколько спичек вы берете?');

readln(N);

ClrScr;

Correct:=(N>=1) and (N<=10) and (N<=S);

if not Correct then

writeln('          Неверно! Повторите ввод! ');

until Correct;

ClrScr;

end

else

begin

N:=Random(10)+1;

if N>S then N:=S;

writeln('          Мой ход. Я взял ',N,' спичек');

end;

if S<=10 then S:=0 else S:=S-N;

if Player=1 then

Player:=2

else

Player:=1;

until S=0;  ClrScr;

if Player=1 then

writeln('       ВЫ ПРОИГРАЛИ!!!')

else

writeln('       ВЫ ПОБЕДИЛИ!!!');

readln;

end

else

begin

player:=2;

S:=InitialCount;

ClrScr;

repeat

if Player=2 then

begin

repeat

write('           Ход игрока № 1. На столе ', S,' спичек.');

write ('                Сколько спичек вы берете?');

readln(N);

ClrScr;

Correct:=(N>=1) and (N<=10) and (N<=S);

if not Correct then

writeln('             Неверно! Повторите ввод!');

until Correct;

end

else

begin

repeat

write('           Ход игрока № 2. На столе ', S,' спичек.');

write ('                Сколько спичек вы берете?');

readln(N);

ClrScr;

Correct:=(N>=1) and (N<=10) and (N<=S);

if not Correct then

writeln('             Неверно! Повторите ввод!');

until Correct;

end;

S:=S-N;

if Player=1 then

Player:=2

else

Player:=1;

until S=0;

ClrScr;

if Player=1 then

writeln('           ПОБЕДА ИГРОКА № 1 !!!')

else

writeln('          ПОБЕДА ИГРОКА № 2 !!!');

readln;

end;

readln;

exit;

end.

 

Список иллюстраций.

Рисунок 1 меню программы 10

Рисунок 2 выбор игрока 11

Рисунок 3 ход пользователя 11

Рисунок 4 ошибка ввода 11

Рисунок 5 ход копьютера 12

Рисунок 6 вывод результата 12

Рисунок 7 ход игрока №1 13

Рисунок 8 блок-схема 15

 

Список используемой литературы.

1). В.  Б. Кудрявцев. Введение в теорию интеллектуальных систем: Учеб. пособие/МаксПресс – М., 2006. – 210 с.

2). Л.  С. Болотова. Системы искусственного интеллекта. Теоретические основы и формальные модели представления знаний: Учеб. пособие/ МИРЭА.– М., 2001. – 78 с.

3). Гаврилова Т.А., Хорошевский В.Ф. Базы знаний интеллектуальных систем. – СПб: Питер, 2001.– 384 с.

4). П.  Джексон. Введение в экспертные  системы.- М.: Изд-во Вильямс, 2001.- 624 с.

5). Искусственный интеллект. Справочник. Книги 1,2,3. –М., 1990

6). Мичи Д., Джонстон Р. Компьютер – творец.- М.: Мир, 1987.- 255 с.

7). Пупков К.А., Коньков В.Г. Интеллектуальные системы. - M.: Изд-во МГТУ им. Н.Э. Баумана, 2003. - 348 с.:ил.