Оператор выбора select case

Оператор SELECT CASE предназначен для выполнения одного из альтернативных действий, перечисленных в нем. Выбор определяется значением управляющей переменной.

Формат оператора

SELECT CASE переменная

CASE сравнение 1

[ операторы 1]

[CASE сравнение 2

[ операторы 2]]

. . .

[CASE ELSE

[ операторы]]

END SELECT

CASE – сравнение в простейшем случае состоит только из одного выражения (например, из чисел или переменных). Однако можно включать списки выражений (выражение 1, выражение 2...) или целые области (выражение 1 TO выражение 2)

Если Сравнение 1 – ''истина'', то выполняются операторы 1, после чего, операторы, следующие END SELECT.

Если Сравнение 1 – ''ложь'', проверяется условие следующей ветви CASE.

Если ни одно из условий не выполняется, то выполняются операторы ветви CASE ELSE.

Значение переменной можно оценивать с помощью операторов сравнения, как в случае с условиями. Для этого после CASE используется ключевое слово IS, за которым следуют операции отношения или выражения.

Фрагмент программы	Исходные данные	Результат выполнения программы
CONST Z = 10 Dim C INPUT “C”; C’ SELECT CASE С CASE 1,2 PRINT ’’знач. С = 1 или 2’’ CASE 3 ТО 10 PRINT ’’знач. С в интервале от 3 до 10’’ CASE IS = 11 PRINT ’’значение С = 11’’ CASE IS < Z + 10 PRINT ’’значение С > 11 и < 20’’ CASE ELSE PRINT ’’инф. отсутствует’’ END SELECT	при С = 1	значение С = 1 или 2
	при С = 5	знач. С в интервале от 3 до 10
	при С = 11	значение С = 11
	при С = 15	значение С > 11 и < 20
	при С >20	инф. отсутствует

Алгоритмы циклической структуры

Цикл – последовательность операторов, выполняемых многократно.

Цикл ''ПОКА'' Цикл ''ДО'' Цикл ''СЧЕТЧИК''

-

+

+

-

Цикл также можно сформировать с помощью операторов IF THEN и GOTO.

Операторы цикла while – wend (цикл ‘’пока’’)

Циклические действия выполняются, пока выполняется определенное условие.

Формат оператора

WHILE условие

оператор 1

. . .

оператор n

WEND

Пока выполняется условие, последовательно выполняются операторы 1 ÷ n.

WEND – закрывает цикл.

Если условие не выполняется с самого начала, то управление передается оператору, следующему за WEND, т.е. циклические действия не выполняются ни разу.

Необходимо следить, чтобы действия внутри цикла влияли на WHILE – условие.

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

Фрагмент программы	Результат выполнения программы
Z= - 5 WHILE Z <= 0 T = ABS(Z) Z = Z +1 PRINT ’’T = ’’; T; ''Z=”;Z WEND	T = 5 Z = - 4 T = 4 Z = - 3 T = 3 Z = - 2 T = 2 Z = -1 T = 1 Z = 0 T = 0 Z = 1