Оператор выбора.

Дата добавления: 2015-07-09; просмотров: 607; Нарушение авторских прав

Оператор варианта Case.

Данный оператор служит для выбора одного из возможных вариантов в ситуации, которая может иметь несколько (более двух) возможных исходов. В зависимости от значения переменой выполняется оператор, помеченный соответствующей константой. Если же ни одна константа не подходит, выполняется оператор, записанный после else.
Оператор case имеет следующий формат:

Case порядковая_переменная of
Значение_1: оператор_1;
Значение_2: оператор_2;
…
Значение_n: оператор_n;
Else оператор;
End;

Возможно использование сокращенной формы оператора case, в которой строка else отсутствует. В этом случае, если ни одно значение не совпадает со значением порядковой переменой, управление передается оператору, следующему за end.

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

Пример 1

Case i of

1,3,5,7:Writeln('Нечетные цифры');

2,4,6,8:Writeln('Четные цифры');

10..100: Writeln('Цифры от 10 до 100');

End;

Блок-схема оператора Саse:

Пример 2: Ввести номер дня недели, в зависимости от номера вывести название «понедельник», «вторник» и тд, если введен номер больше или меньше 7 – вывести «такого дня недели не существует»

Program den;

Var n:integer;

Writeln('Введите номер дня недели')

Case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');

4: writeln ('четверг');

5: writeln ('пятница');

6: writeln ('суббота');

7: writeln ('воскресенье');

Else writeln ('такого дня недели не существует');

End;

<== предыдущая лекция	\|	следующая лекция ==>
Оператор выбора.	\|	Цикл с параметром for в паскале