Угадай число

Угадай число

Компьютер загадывает число в диапазоне от 1 до 30. Задача пользователя угадать это число. Компьютер подсказывает "больше" или "меньше".
В игру имеет смысл добавить отображение количества попыток игрока при угадывании числа, перезапуск игр без завершения работы приложения и красивые эффекты в случае, когда число угадано. (см. уроки).

Разместите на форме компоненты
Label1: TLabel вкладка Standart
Edit1: TEdit вкладка Standart
Button1: TButton вкладка Standart

Задайте в инспекторе объектов (Object Inspector) начальные значения

Label1
 Caption:  Угадайте число от 1 до 30
 
Edit1
 Text: Введите число
 
Button1
 Caption: OK

Переключитесь на вкладку Events и для компонента Button1 напротив события OnClick сделайте двойной щелчок. Будет автоматически создана процедура Button1Click. Впишите следующий код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if StrToInt(Edit1.Text) < Number then Label1.Caption :=  'Больше';
  if StrToInt(Edit1.Text) > Number then Label1.Caption :=  'Меньше';
  if StrToInt(Edit1.Text) = Number then Label1.Caption :=  'Угадали';
end;

Теперь для компонента Form1 для события OnCreate задайте следующий код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  Number := Random(30)+1;
end;

Переменную Number, в которой сохраняется задуманное компьютером число необходимо объявить в разделе Var:

var
  Form1: TForm1;
  Number: Integer;

Запустите программу. Run.

СКАЧАТЬ ПРОГРАММУРазмер
Демо-урок: угадай число (782)401.5 кб

Последние комментарии

  • интернет казино Вулкан интернет казино Вулкан казино Вулкан игровые автоматы казино Вулкан игровые автоматы игровое казино Вулкан vulka78798 казино Вулкан онлайн казино Вулкан игры интернет казино Вулкан казино Вулкан игры казино Вулкан игровые автоматы
  • проститутки нижнего новгорода купить наркотики через тор детское порно видео онлайн проститутки иркутска детское порно вк купить наркотики через тор зоофилы видео скачать детское порно зоо порно смотреть онлайн зоо порно бесплатно проститутки уфы
  • Интересные веб ресурсы: http://gektorstroi.ru/forum/index.php?PAGE_NAME=profile_view&UID=44374 http://autorolla.ru/forum/?PAGE_NAME=profile_view&UID=645 http://www.your-people.ru/forum/user/1449/ http://ww.8marta.com/forum/index.php?PAGE_NAME=profile_view&UID=299640 https://avrora24.ru/...

Счетчики