Сергей Парижский - Delphi. Учимся на примерах

Рис. 9.1. Форма для игры "Угадывание чисел"

Прежде всего, объявим переменные, которые будем использовать на протяжении всей программы:

var

Form1: TForm1;

num, j, i, kolvo, big, small: integer;

maximum, minimum: array [1..100] of integer;{массивы максимальных и минимальных чисел}

Переменная num соответствует случайно заданное число, переменной kolvo — количество попыток, за которые число было отгадано, переменной big — наибольшее число из названных, а переменной small — наименьшее число из названных.

Теперь напишем две процедуры, которые в случае игры против компьютера будут определять границы нахождения числа. Процедура min будет определять нижнюю границу, а процедура max — верхнюю.

Объявим эти процедуры как закрытые члены класса формы:

type

TForm1 = class(TForm)

…

private

{ Private declarations }

procedure min();

procedure max();

public

{ Public declarations }

end;

После этого создадим сами процедуры в разделе implementation:

//процедура нахождения наименьшего числа

procedure TForm1.min();

begin

for i:=1 to kolvo do begin

for j:=1 to kolvo do begin

{Если число меньше наименьшего, то оно становится наименьшим}

if minimum[j] > small then small:= minimum[j];

end;

end;

end;

//процедура нахождения наибольшего числа

procedure TForm1.max();

var temp: integer;

begin

temp:= StrToInt(finish.Text);

for i:=1 to kolvo do begin

for j:=1 to kolvo do begin

if temp > maximum[j] then

if maximum[j] > 0 then temp:= maximum[j];{если число больше наибольшего…}

end;

end;

if( (temp<>0) and (temp<>StrTolnt(finish.Text)) ) then

{… и если число входит в допустимый диапазон, то оно становится наибольшим}

big:= temp;

end;

Рассмотрим процедуру, которая будет выполняться при создании формы:

procedure TForm1.FormCreate(Sender: TObject);

begin

Randomize;//включаем генератор случайных чисел

//загадываем случайное число из заданного диапазона

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

kolvo:= 0;//обнуляем количество попыток

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

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

end;

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

Самое главное событие — нажатие кнопки Принять вариант. Создадим для этого кнопки обработчик события OnClick:

procedure TForm1.Button2Click(Sender: TObject);

begin

//увеличиваем количество попыток на единицу

kolvo:= kolvo + 1;

if not comp.Checked then//если идет игра с человеком

begin

if pl1.Enabled thenbegin //если ход первого игрока

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

if StrToInt(ch1.Text) > num then znak1.Caption:= '>';

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

if StrToInt(ch1.Text) < num then znak1.Caption:= '<';

if StrToInt(ch1.Text) = num then//если число угадано

begin

znak1.Caption:= '=';//изменим знак на "="

//вместо знака "X" показываем загаданное число

х.Caption:= IntToStr(num);

//выводим сообщение о победе первого игрока

ShowMessage('Победил первый игрок!' + #13#10 + 'Число угадано за ' + IntToStr(kolvo) + ' попытки')

end;

//передаем ход второму игроку

pl1.Enabled:= False;

ch1.Enabled:= False;

ch2.Enabled:= True;

pl2.Enabled:= True;

Exit;//прерываем выполнение процедуры

end;

if pl2.Enabled then begin//если ход второго игрока

{сравниваем загаданное число с вариантом второго игрока и ставим соответствующий знак}

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

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

if StrToInt(ch2.Text) = num then begin