Оператор служит для выбора одного из помеченных вариантов действия (операторов), в зависимости от значения «параметра». Оператор имеет вид:
Case «параметр» Of
«список помеченных операторов»
Else «оператор» End;
Здесь «параметр» – выражение или переменная порядкового типа.
Из «списка помеченных операторов» выполняется оператор с меткой, включающей значение «параметра», иначе оператор после слова Else. Конструкция Else «оператор» может отсутствовать.
Напомним, что«оператор» может иметь вид: Begin «операторы» end;
Пример
Приведем пример программы случайного предсказания одного из десяти вариантов ближайшего будущего с вероятностью 1/20, в остальных случаях - вы «неудачник».
PROGRAM FUTURE;
var N: word;
Begin
writeln('ПРЕДСКАЗАНИЕ БУДУЩЕГО');
Randomize; N:=Random(20)+1; { N - случайное число от 1 до 20 }
writeln; write('Вас ожидает – ');
case N of
1: writeln('счастье'); 6: writeln('здоровье');
2: writeln('пятерка'); 7: writeln('деньги');
3: writeln('дорога'); 8: writeln('любовь');
4: writeln('двойка'); 9: writeln('встреча');
5: writeln('болезнь'); 10: writeln('дети')
else writeln('неудача') end;
writeln('Нажми Enter'); readln;
END.
Здесь функция Random(x) генерирует случайное число, с равномерной плотностью распределения на заданном интервале. Для инициализации распределения в начале программы необходимо вызвать процедуру Randomize.
