Угадай число

Угадай число

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

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

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

Поддержка сайта

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

  • Sorry, if not around the topic. I had a bit embarrassment. I randomly lost my essay and I urgently have to have to write a new one. I can not write with my own strength, so I wanted to apply for the essay writing service for revenuel. Located a few web content about this, but I don't know if you...
  • uknk chaturbate http://cumpee.win/post/lostinside-chaturbate-record Let's see what I can find in my nose. I put my pinkie in and I start digging as far as I can.Video is HD 1080pVideo contains: NOSE FETISH leraimholly webcam http://www.litecum.win/post/nikkicarr72-chaturbate-record-mp4 An...
  • pharmacy without dr prescriptions canadian pharmacy online pharmacy without a prescription generic viagra most reliable canadian pharmacies what is metoprolol used for

Счетчики