Оператор if

СОСТАВНОЙ ОПЕРАТОР

Составной оператор представляет собой совокупность последователь­но выполняемых операторов, заключенных в так называемые операторные скобки begin и end, т. е.

Begin

<Оператор 1>;

...

< Оператор N>; End;

Этот оператор, как правило, используется в составе других операторов.

ОПЕРАТОРЫ УСЛОВНОГО ПЕРЕХОДА

Операторы условного перехода проверяют, какие операторы далее сле­дует выполнять и, таким образом, строить разветвляющиеся вычислитель-

ные процессы. Сначала рассматривается некоторое условие, а затем, в зави­симости от того, ложно это условие или истинно, осуществляется переход на выполнение тех или иных действий. Существует два оператора условного перехода: IF и CASE. В операторе IF осуществляется выбор одного из двух вариантов расчета. В операторе CASE осуществляется выбор одного из не­скольких вариантов расчета.

Возможны 2 варианта записи этого оператора:

IF <условие> THEN <оператор 1>;

IF <условие> THEN <оператор 1> ELSE <оператор 2>;.

Условие ветвления для оператора IF задается логическим выражением. Если <условие> возвращает true, то выполняется <оператор 1>. Если <условие> возвращает false, то <оператор 1> не выполняется, а выполняется <оператор 2>, если таковой задан. Например,

IF X < О THEN Y:= -X;

IF X > 25 THEN У:= X + 5 ELSE T:= A + X;.

■

В первом операторе присваивание у: = -х выполняется, если логическое выражение х < 0 истинно. Во втором случае имеется выбор, какой оператор выполнить.

ПРИМЕР ПРИЛОЖЕНИЯ 2

Ввести целое число Хи вывести на экран символ, соответствующий это­му числу в кодировке ANSI (рис. 14).

Рис. 14

Пусть Хтипа Word, значит, значение X лежит в диапазоне 0...65535. В таблице ANSI всего 256 символов, они пронумерованы от 0 до 255. Часть этих символов является управляющими (0...31) и не все из них можно уви­деть на экране дисплея. Остальные символы (32...255), кроме пробела (сим-

вол 32), имеют графическое представление. С помощью оператора IF задан­ная выше ситуация описывается следующим образом:

IF {X > 31} AND (X <= 255) THEN <вывод символа>

ELSE IF (X <- 31) THEN <вывод'Управляющий символ'>

ELSE <вывод 'Символа нет'>;.

В этом примере используются 2 новых компонента: TPanel и TBitBtn. На форме (см. рис. 14) изображены 7 объектов: 2 метки Label1, Label2, 2 однострочных редактора Edit1, Edit2, панель Panel1, простая кнопка Button1 и комбинированная кнопка BitBtnl. Для Panel1 установлено свойст­во Align равным alBottom, для Label2 - свойство Wordwrap равно true и Alignment равно taCenter, чтобы название (Caption) записывалось в два строки и выравнивалось по центру, для BitBtnl свойство Kind выбрано рав­ным bkClose.

Элемент управления TPanel представляет собой вдавленный или выпук­лый (Beveled) прямоугольник, в котором может содержаться несколько элементов управления. Таким образом, этот компонент используется в качестве! контейнера других элементов. Выпуклость и вогнутость определяется следующими свойствами: Bevellnner - вогнутый, BevelOuter - выпуклый, BevelWidth - ширина (глубина).

Компонент TBitBtn, называемый комбинированной кнопкой, очень по­хож на TButton. Находится на второй странице Additional палитры компо­нентов. Этот компонент вместе с текстом позволяет разместить на себе ма­ленький рисунок (в виде пиктограммы), причем позволяет размещать одно­временно до 4 рисунков. Эти рисунки могут выбираться в процессе выпол­нения программы, в зависимости от возникшей ситуации. Рисунок задается с помощью свойства Glyph и должен быть предварительно создан с помощью любого графического редактора, например, встроенного в Delphi. Рисунок должен представлять собой файл типа BMP. Количество рисунков в файле определяется свойством NumGlyphs. В свойстве Kind существуют встроен­ные кнопки с заданными операциями и соответсвующими этим операциям рисунками. В данном случае выберем операцию выхода из обработчика со бытии.

При задании значений свойств TabOrder нужно учитывать, что объект!Panel1 содержит внутри себя 2 объекта и по отношению к форме все эти объекты являются одним элементом. Поэтому свойство TabOrder объекта Edit1 должно быть равно 0, объекта Panel 1 - 1. Нет необходимости задавать значение свойству TabOrder для Edit2. Поэтому следует присвоить связан­ному с TabOrder свойству TabStop этого объекта значение false. TabOrder у элементов Button1 и BitBtnl задаются по отношению к контейнеру Panel1 равными соответственно 0 и 1.

Интерфейс разработан. Теперь в соответствии со схемой рис. 1 выберем необходимые обработчики событий. Для объекта Edit1 следует организовать

ввод только цифровых символов, для Button1 и BitBtnl необходима обработ­ка нажатий на эти кнопки. Таким образом, потребуется разработать три об­работчика событий. Текст программы модуля приводится ниже.

unit prim2; interface

Дата добавления: 2014-12-29