Множественный выбор

Условий, по которым организуется ветвление в программе, может быть больше двух. Для множественного выбора служит инструкция case. Формат её записи следующий:

case <выражение> of

<список_1>: begin

{инструкции 1}

end;

<список_2>: begin

{инструкции 2}

end;

......

<список_n>: begin

{инструкции n}

end;

Else

Begin

{инструкции 1}

end;

end;

Здесь

<выражение> - выражение, от значения которого зависит дальнейший ход выполнения программы (последовательность инструкций, которая должна быть выполнена);

<список_i> - список констант, разделённых запятыми. Если константа представляет диапазон чисел, то вместо списка можно указать первую и последнюю константы диапазона, разделив их двумя точками.

Выполняется инструкция case следующим образом:

1. Вычисляется значение выражения, следующего за словом case.

2. Полученные значения последовательно сравниваются с константами из списков констант перед двоеточием. После этого возможен один из вариантов действий:

§ если значение выражения совпадает с константой из списка, то выполняется соответствующая этому списку последовательность инструкций и выполнение инструкции case завершается;

§ если значение выражения не совпадает ни с одной константой из всех списков, то выполняется последовательность инструкций, следующая за словом else, и выполнение инструкции case завершается;

§ если блока else в инструкции case нет, то её выполнение завершается.

Блок-схема алгоритма множественного выбора

Варианты записи инструкции case:

//---------------------------------------

case n of

1,2,3,4,5: begin

day:=’Рабочий день.’;

end;

6: begin

day:=’Суббота!’;

end;

7: begin

day:=’Воскресенье!!’;

end;

end;

//---------------------------------------

case n of

1..5: day:=’Рабочий день.’;

6: day:=’Суббота!’;

7: day:=’Воскресенье!!’;

End;

//---------------------------------------

case n of

1..5:day:=’Рабочий день.’;

6: day:=’Суббота!’;

else day:=’Воскресенье!!’;

End;

Пример 4.1. Вывести дни недели, поставив в соответствие каждому дню его номер.

Приложение во время выполнения

Дата добавления: 2015-07-10