Угадай число

Угадай число

Компьютер загадывает число в диапазоне от 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.

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

Отправил Втр, 07/25/2017 - 16:47

https://educontest.net/

Отправил Втр, 06/13/2017 - 00:58

http://videochat.tv.br/

Отправил Вс, 05/21/2017 - 15:15

http://www.4istoshop.com/

Отправил Втр, 04/18/2017 - 20:33

Help ban account Google AdSense. Send an abuse to Google Adsense on the following sites:
http://gdenauka.com/
http://hapume.com/
http://indelous.com/
http://usature.com/
http://monforexe.com/
We block this account Google AdSense together.

Отправил Сб, 03/18/2017 - 17:34

Владелец http://healbio.ru/ лох.

Отправил Ср, 11/14/2012 - 06:50

Спасибо! сделал как написано!, всё работает!

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

  • http://www.jjxqjs.com/home.php?mod=space&uid=704673 http://nxfcxx.com/home.php?mod=space&uid=676491 http://www.gioiellidisardegna.com/index.php?option=com_k2&view=itemlist&task=user&id=1495397 http://sky-ink.keenion.ru/sky/forum/profile.php?mode=viewprofile&u=1431617 http://...
  • http://oil-metal.com/home.php?mod=space&uid=28521 http://jshlyj.com/home.php?mod=space&uid=28202 http://bbs.zsukao.com/space-uid-870843.html http://forum.dben.ppgame.com/home.php?mod=space&uid=1218420 http://bjchongxinshun.com/home.php?mod=space&uid=35266 http://xx-w.com/space-uid-...
  • http://www.jinmeifood.com/home.php?mod=space&uid=102831 http://www.shouyou9.net/home.php?mod=space&uid=63850 http://partphoto.com/home.php?mod=space&uid=162731 http://dle1.prestashop-studio.ru/user/AlexisTresy/ http://bbs.daxgame.com/home.php?mod=space&uid=252568 http://www.xc2.info...

Счетчики