Оператор вариантов CASE
Если количество разветвлений программы больше двух, то используется оператор вариантов Case, который является более общим случаем условного оператора. Оператор Case выполняет один из нескольких операторов в зависимости от значения селектора.
Это оператор CASE, который является обобщением оператора IF и позволяет сделать выбор из произвольного числа имеющихся вариантов.
Это оператор CASE, который является обобщением оператора IF и позволяет сделать выбор из произвольного числа имеющихся вариантов.
Формат оператора варианта:
CASE <Выражение-селектор> OF
< Список 1>: <Оператор 1 >;
<Список 2>: <Оператор 2 >;
…
<Список N>: <Оператор N >
[ ELSE <Оператор N+1> ];
END;
Пример:
begin
writeln(‘Введитеномердня’);
readln(a);
case a of
1:writeln(‘Понедельник’);
2:writeln(‘Вторник’);
3:writeln(‘Среда’);
4:writeln(‘Четверг’);
5:writeln(‘Пятница’);
6:writeln(‘Суббота’);
7:writeln(‘Воскресенье’);
else
writeln(‘Номервведенневерно’);