Остановимся подробнее на инструкциях, реализующих тот или иной вид условия. В данном уроке рассмотрим оператор if Delphi. При помощи инструкции if программисту предоставляется возможность выбора одно из двух вариантов дальнейшего выполнения программы. При этом выбор производится в зависимости от исполнения условия.
Общий вид оператора if Delphi:
Оператор if Delphi имеет следующий общий вид:
Заметка. Помните, после служебного слова end перед служебным словом else точки с запятой быть не должно, иначе возникнет ошибка в программе.
Последовательность выполнения оператора if Delphi:
Приведем последовательность выполнения инструкции if. Сначала производится вычисление значения условия (оно имеет логический тип и может принять два значения True или False). В случае, если условие принимает значение Истина (True), то выполняются те инструкции, которые расположены за словом then (между служебными словами begin и end).
На этом операция if заканчивает свое выполнение, а это значит, что инструкции, находящиеся за служебным словом else, выполняться не будут. Если же условие принимаем значение Ложь (False), то происходит выполнение инструкций, находящихся за зарезервированным словом else (заключенных между словами begin и end).
Примеры оператора if Delphi:
На рисунке ниже приведен алгоритм, который соответствует инструкции, включающей служебные слова if, begin и else.
К примеру, если переменной t соответствует тип соединения проводников в электрической цепи (значение t=1 означает последовательное соединение, значение t=2 соответствует параллельному соединению), а r1 и r2 являются величинами сопротивлений, то выполнение представленной ниже инструкции if закончится выбором формулы, при помощи которой будет произведен расчет:
Пример 1. Может возникнуть ситуация, когда инструкция if (между служебными словами begin и end) содержит только одну инструкцию. Тогда программист может не использовать зарезервированные слова begin и end при организации инструкции if:
Пример 2.
Оператор if Delphi можно представить в следующем виде: Если какое-нибудь действие выполняется лишь в случае выполнения определенного условия и должно быть пропущено, когда данное условие не выполняется, то внешний вид инструкции if выглядит следующим образом:
Для наглядности приведем на рисунке ниже алгоритм, реализующий инструкцию if-then.
Например, при помощи инструкции значение переменной c увеличивается лишь тогда, когда значения переменных n и m совпадают.
Пример 3. Рассмотрим программу (которая вычисляет стоимость междугороднего разговора), содержащую инструкцию if. Как правило, на выходных эта стоимость ниже, чем в будние дни. Программа (ее листинг Вы можете скачать по этой ссылке) делает запрос на продолжительность разговора и номер дня недели, а потом осуществляет вычисление стоимости разговора. Если оказалось, что день недели пал на субботу или воскресенье, то величина стоимости понижается на величину скидки. В качестве констант выступают цены одной минуты разговора, а также величина скидки. Иллюстрация диалогового окна данной программы представлена на рисунке ниже.
Заметка. Здесь и далее в процессе описания формы приложения устанавливаются значения свойств компонентов, используемых в программе. Значения других свойств (размер компонента, положение компонента и т.д.) можно оставить без каких-либо изменений, либо поменять произвольно в разумных пределах (например, командная кнопка может располагаться на форме где угодно, лишь бы это не мешало визуальному восприятию происходящего в процессе выполнения программы). Для того, чтобы вводить исходные данные (длительность разговора, номер соответствующего дня недели), в программе применяются поля редактирования Edit1 и Edit2. Для вывода полученного результата и поясняющего текста были использованы поля меток. В таблице ниже представлен перечень компонентов и соответствующих им назначений.
В следующей таблице приведем значения свойств используемых компонентов (в столбце Свойство указаны <ИмяКомпонента.ИмяСвойства>, то есть в строке таблицы Button1.Caption Вычислить означает, что при создании формы приложения свойство Caption примет значение — текст «Вычислить»). Таким образом, данная программа осуществляет вычисления при нажатии на кнопку Вычислить. В итоге появляется событие onclick, обрабатывающееся впоследствии процедурой TForm1.Button1Click.
Хотелось бы добавить напоследок, что в программе могут присутствовать вложенные инструкции if. Поэтому будьте внимательны при расстановке служебных слов, составляющих данную инструкцию, иначе корректность выполнения программы не гарантируется.