Угадай число

Угадай число

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

СКАЧАТЬ ПРОГРАММУРазмер
Демо-урок: угадай число (756)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

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

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

  • 90m lesbian pantyhose pb Classic Interracial Sarah Young Takes a Big Black Cock. Hot Asian With Perky Nipples Masturabting. Sexy Blonde, Anal Big Black Cock Breaking My Ass And Taking A Shower. Porn photos of blondes Attractive russian and canadian singles Huge Cum After Days. She saw some teen...
  • [b]Продам iphone 8 (идеальная реплика) в отличном состоянии. [/b] Телефон новый, технических нареканий нет, работает хорошо. [img]http://www.picshare.ru/uploads/180624/E9V10k2k3t.jpg[/img] [b]Полный коплект: коробка, наушники, зарядка.[/b] Продаю срочно, поэтому отдам с большой скидкой. [b]Всего...
  • кредит онлайн взять кредит в Украине ccloan деньги в долг gloriafin деньги в долг moneyboom деньги в долг soscredit деньги в долг dinero деньги в долг e-cash деньги в долг

Счетчики