Оператор служит для выбора одного из помеченных вариантов действия (операторов), в зависимости от значения «параметра». Оператор имеет вид:
Case «параметр» Of.
" список помеченных операторов" .
Else «оператор» End;
Здесь «параметр» — выражение или переменная порядкового типа.
Из «списка помеченных операторов» выполняется оператор с меткой, включающей значение «параметра» , иначе оператор после слова Else. Конструкция Else «оператор» может отсутствовать.
Напомним, что " оператор" может иметь вид: Begin " операторы" end;
Пример операторов для определения порядка целого числа N от 0 до 999:
case N of.
- 0.9: writeln ('однозначное');
- 10.99: writeln ('двузначное');
- 100.999: writeln ('трехзначное')
else writeln ('Число «N» не входит в указанный диапазон') 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.