Использование условных операторов в Object Pascal. Семенов Н.М. - 8 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

8
Ниже приведены шаги, которые надо проделать при запуске программы:
1. Не забудьте сохранить проект перед испытанием программы.
2. Оттранслируйте и запустите программу.
3. Щёлкните мышью на кнопке Hide и убедитесь, что надпись на ней изменилась
на Show и текст подсказки исчез. Эти изменения являются следствием выполнения
раздела if-then оператора if-then-else в обработчике событий BtnToggleClick.
4. Щёлкните мышью на кнопке Show и убедитесь, что текст подсказки появился
вновь. На этот раз сработал раздел else оператора if.
5. Для выхода из программы щёлкните мышью на кнопке Close.
3 Оператор case
Необходимость более сжатых условных выражений становится очевидной, если
надо выбирать не из двух, а из большего числа альтернативных путей выполнения.
Оператор case - вторая из доступных вObject Pascal структур условного
управления - выбирает один из нескольких возможных путей выполнения (ветвей) в
зависимости от значения селекторного выражения.
Общий синтаксис оператора case приведён ниже:
case СелекторноеВыражение of
Значение11,
Значение12,
. . .
Значение1N:Оператор1;
Значение21,
Значение22,
. . .
Значение2М:Оператор2;
. . .
else
ОператорПоУмолчанию1;
ОператорПоУмолчанию2;
. . .
ОператорПоУмолчаниюN;
end.
В операторе case может только присутствовать раздел else - специальный раздел
с операторами, выполняемыми по умолчанию, то есть в том случае, когда значение
селекторного выражения не соответствует ни одному из списков значений ветвей
условного выполнения. Этот раздел вводится с помощью зарезервированного слова
else. Блок else внутри оператора case гарантирует, что все возможные случаи учтены, то
есть, что независимо от значения селектора по крайней мере один из условных
переходов будет выполнен.
Избегайте ветвей с многими операторами везде, где это возможно. С точки
зрения читаемости программы гораздо лучше преобразовать группы выполняемых
операторов каждой ветви в отдельные процедуры и затем вызывать эти процедуры -
уже как одиночные команды - в ветвях оператора case.

Страницы