4. Створіть процедуру опрацювання події натиснення кнопки Визначити. У вікні редактора коду введіть програмний код (мал. 24.7). Зверніть увагу
на структуру команди розгалуження.
procedure TForml.Button1click (Sender: TObject);
var t:integer;
begin
t:= strToint (Edit1.Text);
if t<0 then Edit2.Text:= "Вода перебуває у твердому стані!
else if t>100 then Edit2.Text:= 'Вода перебуває у газоподібному стані
else Edit2. Text := 'Вода перебуває в рідкому стані;
end;
Рассмотрим первый вариант, когда символ Х стоит на последнем месте:
Всего 5 позиций. Последняя из них точно будет занята символом Х, тогда свободными остаются первые 4 позиции: * * * * Х
На каждую из них может приходиться какой-то один из символов А, В или С
Тогда общее число возможных вариантов вычисляется, как 3^4 = 81.
Рассмотрим второй вариант, когда символа Х нет вовсе. В этом случае на каждую из 5-ти позиции может приходиться один из символов А, В или С.
Тогда общее число вариантов вычисляется, как 3^5 = 243
В итоге получаем, что всего кодовых слов может быть 243+81 = 324.