Case (k Mod d ) Of
2,3,5..8: d := k; метки вариантов могут перечисляться через запятую
1: ; это пустой оператор – программа ничего не выполняет
4,9: Begin если в одной ветви переключателя несколько операторов,
k := 0; то они заключаются в операторные скобки
d := 2;
End; перед Else ставится точка с запятой
Else d := 1; если значение селектора не совпадает ни с одной из меток
End;
В этом случае значение селектора 4 Mod 5 = 4 , поэтому переходим на ветвь с меткой варианта, равной 4, отсюда k = 0 и d = 2.
Таким образом,
· в каждой ветви могут стоять по нескольку меток вариантов, разделенных запятыми: 2,3,
· можно использовать интервалы данных: 5..8
· в качестве оператора можно использовать пустой оператор
· если после метки вариантов следует несколько операторов, то необходимо заключать в операторные скобки Begin…End
· метки вариантов не должны повторяться.
Пример: написать программу с использованием переключателя, которая по введенному номеру месяца определяет количество дней в нем.
В данном случае у переключателя будут три ветви:
1. для месяцев с 30 днями
2. для месяцев с 31 днем
3. для месяца с 28 днями (вариант високосного года рассматривать не будем).
Program Mesjac;
Uses Crt;
Var Month: 1..12;
Begin
ClrScr;
Write(‘Введите номер месяца:’);
ReadLn(Month);
Дата добавления: 2015-08-08; просмотров: 758;