Примеры программирования задач

8.1.1. Игра «Угадай число» (Delphi)

Составим программу‑ игру «Угадай число» (рис. 8.1.1.1).

В поле Edit1 задается число N для формирования случайного поло­жи­тельного целого числа в интервале [0, N], и это число должен угадать иг­рок. Кнопкой Загадать число (Button1) формируется это случайное чис­ло. Иг­рок вводит предполагаемое число в поле Edit2 и нажимает кнопку Попытка. Если это число больше загаданного, то в поле Edit3 (Резуль­тат) выводится текст подсказки Перелет. Если это число меньше зага­дан­ного, то выводится текст Недолет. Наконец, при совпадении выводит­ся текст Угадал. Число использованных попыток выводится в поле Edit4. Разместим на форме соответствующие компоненты и зададим значения свойству Caption.

Приведем тексты процедур программы.

Var // раздел переменных модуля Unit1

X: Integer; // объявление внешней переменной X - загадываемое число

procedure TForm1.Edit1Change(Sender: TObject); // изменение поля Edit1

Var v, e: Integer; // v ‑ значения числа после перевода, e ‑ код ошибки (0-нет)

Begin Val(Edit1.Text, v, e); // перевод числа из поля Edit1.Text в V (п. 1.7.5)

Button1.Enabled: =e=0; // условие доступности Button1

Button2.Enabled: =False; // блокировка кнопки Button2 (Попытка)

Edit2.Enabled: =e=0 // условие доступности поля Edit2

end;

procedure TForm1.Edit2Change(Sender: TObject); // изменение поля Edit2

Var v, e: Integer; // v ‑ значения числа после перевода, e ‑ код ошибки (0-нет)

Begin

Val(Edit2.Text, v, e); // перевод числа из поля Edit2.Text в V

Button2.Enabled: = e=0; // условие доступности Button2

end;

procedure TForm1.Button1Click(Sender: TObject); //кнопка «Загадай число»

var v, e: Integer; // v ‑ значения числа после перевода, e ‑ код ошибки (0-нет)

begin Val(Edit1.Text, v, e); // перевод числа из поля Edit1.Text в V

Randomize; X: =random(v); // формирование случайного числа X

Edit1.Enabled: =False; Button2.Enabled: =True; Edit2.Enabled: = True;

Edit2.SetFocus; // установка фокуса на поле Edit2

End;

procedure TForm1.Button2Click(Sender: TObject); // кнопка «Попытка»

Var v, e: Integer; // v ‑ значения числа после перевода, e ‑ код ошибки (0-нет)

Begin Val(Edit2.Text, v, e); // перевод числа из поля Edit2.Text в V

If v> X then Edit3.text: ='Перелет' else

If v< X then Edit3.text: ='Недолет' else Edit3.text: ='Вы угадали';

Edit4.Text: =IntToStr(StrToInt(Edit4.Text)+1); //число попыток увеличить на 1

Edit2.SetFocus; // установка фокуса на поле Edit2

end;

procedure TForm1.Button3Click(Sender: TObject); //кнопка «Очистить»

begin Edit1.Text: =''; Edit2.Text: =''; Edit3.Text: =''; Edit4.Text: ='0';

Edit1.Enabled: =True; // разблокировка поля ввода числа N

Button1.Enabled: = False; // блокировка кнопки «Загадай число»

Button2.Enabled: = False; // блокировка кнопки «Попытка»

Edit1.SetFocus; // установка фокуса на поле Edit1

X: = 0 // загадываемое число первоначально равно нулю

end;

procedure TForm1.Button4Click(Sender: TObject); // кнопка «Выход»

begin Close; end;

Для формы в качестве обработчика события OnActivate укажем имя процедуры Button3Click ‑ обработки события OnClick кнопки Очистить.