Case B of

<список меток 1>:S1;

<список меток 2>:S2;

:

<список меток n>:Sn;

[Else S;]

End;

S1, S2,…, Sn – любые операторы в единственном числе;

B – выражение, дающее значение порядкового типа, оно называется переключателем;

<список меток n> - это перечень констант того же типа, что и значение переключателя B. Разделяются запятой или (..).

Примеры:

1..50; 1,2,4; ’a’,’d’;

Выполняется:

1. Вычисляется значение переключателя B;

2. Отыскивается список меток, включающий это значение и выполняется соответствующий оператор;

3. Если значение переключателя не входит ни в один из списков меток, то в случае полной формы операторa Case, выполняется оператор S, а в случае неполной формы управление передается следующему оператору программы.

Здесь перед Else (;) ставится.

Задача 4:

По номеру дня недели вывести соответствующее ему название.

Решение:

Program Vet4;

Var Z:Integer;

Begin

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

Readln(Z);

Case Z of

1:Writeln(’Понедельник’);

2:Writeln(’Вторник’);

3:Writeln(’Среда’);

4:Writeln(’Четверг’);

5:Writeln(’Пятница’);

6:Writeln(’Суббота’);

7:Writeln(’Воскресенье’);

Else

Writeln(’Дня с таким номером не существует.’);

End;

End.

Задача 5:

По заданному символу определить, является ли он цифрой, латинской буквой или другим знаком.

Решение:

Program Vet5;

Var Z:Char;

Begin

Writeln(’Введите символ’);

Readln(Z);

Case Z of

’1’,’2’,’3’,’4’,’5’,’6’,’7’,’8’,’9’,’0’:Writeln(’Символ - цифра’);

’a’..’z’:Writeln(’Символ – латинская буква’);

Else

Writeln(’Другой знак.’);

End;

End.

Задачи:

1. Определить по введенному номеру месяца, количество дней в нем.

2. Определить, принадлежит ли введенное целое число к десяткам, сотням или тысячам.

3. По номеру квартала определить принадлежащие ему названия месяцев.

4. По номеру четверти координатной плоскости вывести знаки Х и У.