Угадай число
Компьютер загадывает число в диапазоне от 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.
| СКАЧАТЬ ПРОГРАММУ | Размер |
|---|---|
| Демо-урок: угадай число (831) | 401.5 кб |
18151 просмотр
- Расчет треугольника (13570)
- Калькулятор логических функций (13392)
- Обучающая программа по алгебре "Glance" (5559)
- Таблица умножения в мультфильмах (5441)
- Обучающая программа по арифметике Sapling (3427)
- Тела вращения (Rotation bodies) (2663)
- Магический квадрат (2113)
- Таблица деления в мультфильмах (2042)
- Тестирующая программа по физике PhysicsTest (1786)
- Тестирующая программа по информатике HardTest (1705)
- Тестирующая программа по зоологии AnimalsTest (1653)
- Тестирующая программа по информатике InfTest (1497)
- Тестирующая программа по киноискусству StarsFilmsTest (535)
- Тестирующая программа по звездам эстрады StarsMusicTest (511)
- Тестирующая программа по информатике InfTest (1)
-
vitality ed pills cure for ed or natural ed medications treatment for erectile dysfunction or how to get amoxicillin can i buy amoxicillin over the counter or prednisone 20 mg tablets coupon prednisone 5mg coupon or vacuum pump for ed ed pills for sale
-
erectile dysfunction medication comparison of ed drugs ed cures that work otc ed pills https://canadianpharmacyvikky.com real viagra without a doctor prescription usa ed aids buy prescription drugs online without herbal remedies for ed
-
ed medications over the counter canadian pharmacy vikky best ed drugs new erectile dysfunction treatment https://canadianpharmacyvikky.com ed pills online
Generic cialiscanada buy cialis what does viagra cost buy cheap viagra
Generic 10 mg cialis 20mg generic cialis buy cialis europe buy generic cialis
Buy generic cialis online without prescription buy cialis online cialis generic 100mg buy generic cialis online
Viagra logo viagra buy generic cialis maintain an erection generic cialis
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
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
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
Cialis pills online generic buy generic cialis online cialis online australia online cialis
Viagra femenina natural cialis generic generic cialis generic cialis usa buy generic cialis small bad credit loans loans for bad credit
Cialis generic paypal buy generic cialis buy cheap cialis without prescription buy cialis online loans in arlington tx personal loans
Super viagra soft tabs cialis pills buy generic cialis non generic cialis online cialis lend money online payday loans online