Case <Переменная> of

< значение 1 >: {< оператор 1 >, если < переменная > равна < значение 1 > };

< значение 2 >: {< оператор 2 >, если < переменная > равна < значение 2 > };

----

< значение N >: {< оператор N >, если < переменная > равна < значение > };

Else {< оператор >, если < переменная > не равна не одному из значений};

end;

< Переменная > - может быть одним из стандартных типов: символьным типом, целым числом, перечисляемым типом... Вместо значения может стоять простой оператор.

< Значение N > - произвольное значение, того же типа, что и переменная.

< Оператор N > - любые операторы, если их более одного, то они берутся в операторные скобки begin … end.

Работа оператора Case осуществляется следующим образом. Вначале, если необходимо вычисляется значение переменной. Затем ищется соответствие переменной значению N. При равенстве происходит выполнение оператора N и оператор case завершает свою работу. Если совпадений не найдено, то выполняется оператор расположенный после слова else. При отсутствии оператора else, когда нет соответствия, оператор case завершит свою работу и будет выполнен следующий оператор.

Если для нескольких констант нужно выполнить один и тот же оператор, их можно перечислить через запятую сопроводив их одним оператором. Существует возможность указать диапазон возможных значений.

Например:

Case i of

0, 2, 4, 6, 8: LabelN.Caption: ='Четная цифра';

10..100: LabelN.Caption: ='Число от 10 до 100';

Ниже приведена блок схема данной алгоритмической структуры:

Рассмотрим пример: в зависимости от введенного пользователем номера месяца, необходимо вывести его название. Выполним проект «12 месяцев».

Проект «12 месяцев»

Написать программу которая выводит название месяца по его номеру.

Запустим Delphi и создадим новый проект:

Добавим 2 элемента Label, в одной из которых будет выводится название месяца. Вставим элемент для ввода номера месяца – Edit. И наконец, кнопку Button для обработки запроса:

Двойным нажатием на кнопку «Определить месяц» мы перейдем в окно записи процедуры обработки, которую будет выполнять данная кнопка при нажатии на нее. Наберем следующий код:

procedure TForm1.Button1Click(Sender: TObject);

var a: integer;

begin

a: =StrToInt(Edit1.Text);