Оператор множественного выбора SELECT CASE

Оператор SELECT CASE позволяет осуществлять разветвление по любому фиксированному числу ветвей. Он имеет следующий формат:

SELECT CASE выражение CASE условие 1 блок операторов 1 CASE условие 2 блок операторов 2 ……………. CASEELSE ‘ необязательный элемент конструкции блок операторов n ENDSELECT

здесь: выражение – арифметическое или текстовое выражение;

условие - логическое выражение.

Логическое выражение может иметь одну из трех форм:

1) выражение, задающее диапазон значений

CASE выражение TO выражение;

2) отношение

CASE IS операция отношения выражение;

3) перечень констант

CASE константа 1, константа 2.

Например, строки CASEмогут содержать следующие условия:

CASE IS>8 ‘ проверка на превышение значения 8;

CASE X^3 ‘ проверка на равенство значению выражения;

CASE 17 TO 25 ‘ проверка на принадлежность отрезку [17;25];

CASE 1 TO 4, 9 TO 20, 11, 56, IS>Min.

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

Порядок выполнения оператора SELECT CASE следующий: если значение выражения удовлетворяет условию после конструкции CASE, то выполняется блок операторов, а затем управление передается оператору, следующему после конструкции END SELECT. В противном случае проверяется следующее условие и так далее. Блок операторов n, расположенный после CASE ELSE выполняется в том случае, если последовательные проверки все условий выше дали значение “Ложь».

Оператор имеет следующие особенности: условие 1, условие 2 и так далее должны быть последними в строке, а конструкция CASEELSE должна быть единственной в строке.

REM Пример использования оператора SELECT CASE INPUTV SELECT CASE V CASE 0 PRINT “ НУЛЬ”; V CASE 1, 3, 5, 7, 9 PRINT “ НЕЧЕТНОЕЧИСЛО”; V CASE 2, 4, 6, 8 PRINT “ ЧЕТНОЕЧИСЛО”; V CASE IS <0 PRINT “ ОТРИЦАТЕЛЬНОЕЧИСЛО”; V CASE IS>9 PRINT “ СЛИШКОМ БОЛЬШОЕ ЧИСЛО”; V CASE ELSE PRINT “ НЕЦЕЛОЕЧИСЛО”; V END SELECT 'КОНЕЦ ПРОГРАММЫ END