Delphi. Учимся на примерах - [15]

Шрифт
Интервал

>  end;

>  //если вариант первого игрока меньше загаданного числа

>  if znak1.Caption = '<' then begin

>   minimum[kolvo]:= StrToInt(ch1.Text); {добавляем число в массив наименьших чисел, выданных первым игроком}

>   min();//ищем наименьшее число

>   end;

>   //после всех расчетов, компьютер выдает свой вариант

>   ch2.Text:= IntToStr(Random(big– small)+ small);

>  end;

>  //проверяем вариант компьютера и ставим соответствующий знак

>  if StrToInt(ch2.Text) > num then znak2.Caption:= '>';

>  if StrToInt(ch2.Text) < num then znak2.Caption:= '<';

>  if StrToInt(ch2.Text) = num then begin znak2.Caption:= '=' ;

>  x.Caption:= IntToStr(num);

>  ShowMessage('Вы проиграли!' + #13#10 + 'В этот раз победил компьютер!' + #13#10 + ' Число угадано за ' + IntToStr(kolvo) + ' попытки');

> end;

>end;

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

После того как второй игрок выдал свой вариант ответа, мы выполняем те же проверки, и, если число не угадано, вновь даем право попытаться угадать загаданное число первому игроку. После того как кто-то из игроков дает вариант ответа, мы пополняем счетчик kolvo, чтобы потом сообщить, сколько попыток использовалось, чтобы угадать число.

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

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

Для того чтобы можно было переключаться между режимами игры "с человеком" и "против компьютера", создадим обработчик события OnClick для флажка comp:

>procedure TForm1.compClick(Sender: TObject);

>begin

> if comp.Checked then begin //если флажок установлен

>  //блокируем ввод от второго игрока

>  ch2.Enabled:= False;

>  рl2.Enabled:= False;

>  //включаем ввод от первого игрока

>  ch1.Enabled:= True;

>  pl1.Enabled:= True;

> end

> else begin

>  //если игра идет с человеком, то

>  //включаем ввод для второго игрока

>  ch2.Enabled:= True;

>  рl2.Enabled:= True;

> end;

>end;

Осталось только обработать нажатие кнопки Новая игра:

>procedure TForm1.Button1Click(Sender: TObject);

>begin

> if ((StrToInt(finish.Text) > StrToInt(start.Text)) and (StrToInt(start.Text) > 0) and (StrToInt(finish.Text) < 60000))

> then {проверяем, не выходит ли заданное пользователем число за допустимые пределы}

>  {загадаем случайное число в заданном диапазоне}

>  num:= Random(StrToInt(finish.Text) – StrToInt(start.Text)) + StrToInt(start.Text)

> else ShowMessage('Неверный диапазон!');

> //обнуляем все, и придаем программе начальный вид

> znak1.Caption:= '';

> znak2.Caption:= '';

> ch1.Enabled:= True;

> ch2.Enabled:= False;

> pl1.Enabled:= True;

> pl2.Enabled:= False;

> x.Caption:= 'X';

> ch1.Text:= '0';

> ch2.Text:= '0';

> //очистим массивы наибольших и наименьших чисел

> for i:= 1 to kolvo+1 do begin

>  minimum[i]:= 0;

>  maximum[i]:= 0;

>  big:= StrToInt(finish.Text); //наибольшее число

>  small:= StrToInt(start.Text); //наименьшее число

> end;

> kolvo:= 0; //количество использованных попыток

>end;

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

Компилируем и запускаем программу на выполнение. Игра в действии показана на рис. 9.2.

Рис. 9.2. Игра "Угадывание чисел" в действии

Полный исходный код модуля

Полный исходный код программного модуля игры "Угадывание чисел" представлен в листинге 9. 1.

Листинг 9.1. Программный модуль игры "Угадывание чисел"

>unit Unit1;


>interface


>uses

> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;


>type TForm1 = class(TForm)

> Button1: TButton;

> Label1: TLabel;

> Label2: TLabel;

> start : TEdit;

> finish: TEdit;

> Label3: TLabel;

> pl1: TLabel;

> ch1: TEdit;

> pl2: TLabel;

> ch2: TEdit;

> comp: TCheckBox;

> Button2: TButton;

> x: TLabel;

> znak1: TLabel;

> znak2: TLabel;

> procedure FormCreate(Sender: TObject);

> procedure compClick(Sender: TObject);


Рекомендуем почитать
Графика DirectX в Delphi

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


Вторая жизнь старых компьютеров

Сейчас во многих школах, институтах и других учебных заведениях можно встретить компьютеры старого парка, уже отслужившие свое как морально, так и физически. На таких компьютерах можно изучать разве что Dos, что далеко от реалий сегодняшнего дня. К тому же у большинства, как правило, жесткий диск уже в нерабочем состоянии. Но и выбросить жалко, а новых никто не дает. Различные спонсоры, меценаты, бывает, подарят компьютер (один) и радуются, как дети. Спасибо, конечно, большое, но проблемы, как вы понимаете, этот компьютер в общем не решает, даже наоборот, усугубляет, работать на старых уже как-то не хочется, теперь просто есть с чем сравнивать.


DirectX 8. Начинаем работу с DirectX Graphics

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


Симуляция частичной специализации

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


Обработка событий в С++

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


Питон — модули, пакеты, классы, экземпляры

Python - объектно-ориентированный язык сверхвысокого уровня. Python, в отличии от Java, не требует исключительно объектной ориентированности, но классы в Python так просто изучить и так удобно использовать, что даже новые и неискушенные пользователи быстро переходят на ОО-подход.