Угадай число

Угадай число

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

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

Отправил Втр, 09/24/2019 - 06:35

Generic cialiscanada buy cialis what does viagra cost buy cheap viagra

Отправил Втр, 09/24/2019 - 05:58

Generic 10 mg cialis 20mg generic cialis buy cialis europe buy generic cialis

Отправил Втр, 09/24/2019 - 02:12

Buy generic cialis online without prescription buy cialis online cialis generic 100mg buy generic cialis online

Отправил Сб, 09/21/2019 - 14:41

Viagra logo viagra buy generic cialis maintain an erection generic cialis

Отправил Втр, 09/17/2019 - 20:52

Viagra par internet cialis 20mg buy cialis generic cialis tadalafil 20mg cheap cialis online cialis tablets buy cialis generic generic cialis overnight shipping cost buy cheap cialis xatral cialis online pharmacy cialis online cialis buy cialis uk

Отправил Втр, 09/17/2019 - 20:40

Natural forms of viagra cialis generic buy cheap cialis viagra cocaine cialis pills cialis cialis buy cialis online us Buy Cheap Cialis Online cheap generic cialis pills Buy Cheap Cialis Online online cialis order cialis cialis online and what cialis pills look like

Отправил Втр, 09/17/2019 - 19:39

What company makes viagra cialis 20mg cialis online cialis pills online cialis cheap generic cialis 20mg best buy california cheap cialis generic cialis online without prescription cialis online nitric oxide and cialis generic drugs cialis online buy cialis line

Отправил Ср, 09/11/2019 - 14:33

Cialis pills online generic buy generic cialis online cialis online australia online cialis

Отправил Чт, 08/29/2019 - 09:47

Viagra femenina natural cialis generic generic cialis generic cialis usa buy generic cialis small bad credit loans loans for bad credit

Отправил Чт, 08/29/2019 - 08:55

Cialis generic paypal buy generic cialis buy cheap cialis without prescription buy cialis online loans in arlington tx personal loans

Отправил Чт, 08/29/2019 - 07:03

Super viagra soft tabs cialis pills buy generic cialis non generic cialis online cialis lend money online payday loans online

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

  • Андрей прокип Андрей прокип к главным направленностям содействия становления благотворительной и добровольной работы относит: 1. Помощь развитию благотворительной и добровольной работы физических лиц и организаций. Ведущими задачками сего направленности считаются: • расширение налоговых...
  • Вот только зачем она это делает? И лучше ведь тело держать в тайне и показывать его только мужу. фото широкие бедра настоящих леди без трусов, фото группового секса http://18devok.ru/
  • Тематические КРАУД ССЫЛКИ бесплатно Тематические крауд ССЫЛКИ только Подробно здесь: http://kingisepp.ru/forum/thread-1211/

Счетчики