Иллюстрированный самоучитель по Tirbo Pascal


Игра ним - часть 4


until exit 

end.

В этом алгоритме выделяются три главных действия и организуется цикл, который будет выполняться до тех пор, пока где-то в программе переменной EXIT (выход) не будет присвоено значение TRUE.

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

Uses CRT; {Подключение библиотеки дополнительных

процедур и функций для управления экраном}

var

exit : Boolean; {Признак окончания работы} 

change : Boolean; {Признак изменения условий игры}

{----------------------}

Procedure Prepare; {Готовит экран к игре} 

begin {Prepare} 

end; {Prepare}

{----------------------}

Procedure GetPlayerMove;

{Получает, контролирует и отображает ход игрока}  

begin {GetPlayerMove} 

end; {GetPlayerMove}

{----------------------}

Procedure SetOwnerMove;

{Находит и отображает очередной ход программы}  

begin {SetOwnerMove} 

end; {SetOwnerMove}

{----------------------}

begin {Главная программа} 

{Подготовить начальную расстановку фишек}  

repeat {Цикл изменения условий игры} 

Prepare; {Подготовить экран} 

repeat {Игровой цикл}

GetPlayerMove; {Получить ход пользователя} 

if not (exit or change) then

SetOwnerMove {Определить собственный ход} until exit or change 

until exit 

end.

В этом варианте главная программа содержит два вложенных друг в друга цикла Repeat. . .Until: внутренний цикл управляет игрой, внешний отвечает за изменение условий игры. Оба цикла управляются двумя логическими переменными, которые являются глобальными для трех основных процедур PREPARE, GETPLAYERMOVE, SETOWNERMOVE и, следовательно, могут изменяться внутри этих процедур.




- Начало -  - Назад -  - Вперед -