Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слева Предыдущая версия | Следующая версия Следующая версия справа и слева | ||
bb:redbook:213 [2016/09/08 10:03] prospero78 [1. Оператор выбора CASE] |
bb:redbook:213 [2016/09/08 10:04] prospero78 [1. Оператор выбора CASE] |
||
---|---|---|---|
Строка 10: | Строка 10: | ||
Как использовать оператор '' | Как использовать оператор '' | ||
+ | <code oberon2> | ||
+ | MODULE Test_case; | ||
+ | |||
+ | IMPORT | ||
+ | Log; | ||
+ | |||
+ | PROCEDURE SelectV (v: INTEGER); | ||
+ | BEGIN | ||
+ | Log.String(" | ||
+ | CASE v OF | ||
+ | 1..10: Log.String(" | ||
+ | | 11..100: Log.String(" | ||
+ | | 101..1000: Log.String(" | ||
+ | ELSE | ||
+ | Log.String(" | ||
+ | END; | ||
+ | |||
+ | END SelectV; | ||
+ | |||
+ | PROCEDURE Start*; | ||
+ | VAR | ||
+ | v: INTEGER; | ||
+ | BEGIN | ||
+ | v := 6; | ||
+ | SelectV(v); | ||
+ | v := 12; | ||
+ | SelectV(v); | ||
+ | v := 102; | ||
+ | SelectV(v); | ||
+ | v := - 1; | ||
+ | SelectV(v); | ||
+ | END Start; | ||
+ | |||
+ | END Test_case. | ||
+ | </ | ||
Как видно из текста модуля, | Как видно из текста модуля, |