Парижский Сергей Михайлович
Шрифт:
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
znak2.Caption := '=';
x.Caption:= IntToStr(num);
ShowMessage('Победил второй игрок!' + #13#10 + 'Число угадано за ' + IntToStr(kolvo) + ' попытки')
end;
end;
//передаем ход первому игроку
рl2.Enabled:= False;
ch2.Enabled:= False;
ch1.Enabled:= True;
pl1.Enabled:= True;
Exit;
end;
if comp.Checked then begin //если игра против компьютера
{проверяем вариант первого игрока и ставим соответствующий знак}
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) + ' попытки');
Exit;
end;
//если вариант первого игрока больше загаданного числа
if znak1.Caption = '>' then begin
maximum[kolvo]:= StrToInt(ch1.Text); {добавляем в массив наибольших чисел вариант первого игрока}
max;
//ищем наибольшее число
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;
По нажатию кнопки Принять вариант мы проверяем, какой режим игры установлен: с другим игроком или против компьютера. Если мы играем с человеком, то далее осуществляется проверка: кто из игроков выдал свой вариант. Если это был первый игрок, то мы сравниваем его вариант ответа с загаданным числом и после этого отображаем соответствующий знак или сообщаем о победе первого игрока, если числа равны. Затем мы блокируем ввод с клавиатуры для первого игрока и разрешаем ввести число второму игроку.