Оператор SELECT CASE

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

Формат записи:

SELECT CASE выражение

CASE список выражений1

[блок операторов-1]

[CASE список выражений2

[блок операторов-2]]...

[CASE ELSE

[блок_операторов-n]]

END SELECT

где

выражение любое числовое или строковое выражение.

список_выражений1 одно или несколько выражений для сравнения с

список_выражений2 выражением.

В выражении ключевое слово IS должно стоять перед любым знаком отношения.

блок_операторов-1 один или несколько операторов в одной или

блок_операторов-2 нескольких строках.

блок_операторов-n

Аргументы списка выражений могут принимать любую из следующих форм или их комбинацию и должны разделяться запятыми:

выражение[,выражение]...

выражение ТО выражение

IS оператор_отношения выражение

где

выражение любое числовое или строковое выражение.

оператор_отношения один из следующих знаков отношения: <, <=, >, >=, <>, =.

Пример 1:

INPUT "Введите уровень риска (1-5): ", Total

SELECT CASE Total

CASE IS >= 5

PRINT "Максимальный риск, шансов на возвращение практически нет."

PRINT "Сходите в нотариальную контору."

CASE 2 ТО 4

PRINT "Высокий риск, шансов на возвращение немного."

PRINT "Проверьте снаряжение и припасы."

CASE 1

PRINT "Риск отсутствует, возврат гарантирован."

PRINT "В Вас отсутствует дух авантюризма."

END SELECT

Пример 2: Вычислить

INPUT "x->,y->,z->"; x, y, z

f = x * y

SELECT CASE 0

CASE IS <> x > z

f = 3 ^ (-y) * SQR(ABS(x) + ABS(y))

CASE IS <> x <= z AND y > 0 AND y <> 1

f = 2 * (z ^ 4) * 1 / LOG(y)

END SELECT

PRINT "f="; f