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

Для ситуаций, где имеется несколько (три и более) альтернатив, вместо условного оператора больше подходит оператор выбора.

Общая форма записи:

case < выражение-селектор> of

< список значений 1>: < оператор 1>;

< список значений 2>: < оператор 2>;

…………………………: …………………;

< список значений N>: < оператор N>;

else < оператор>;

end;

Принцип работы оператора выбора: при выполнении данного оператора вначале вычисляется значение выражения-селектора стоящего после зарезервированного слова case. Затем выбирается тот список значений, которому принадлежит полученное значение, и выполняется соответствующий оператор, следующий за двоеточием. Оператор стоящий после зарезервированного слова else выполняется если ни один из списков значений не удовлетворил значению выражения-селектора и может отсутствовать. В списках значений допустимыми являются скалярные типы переменных, которые включают целые и исключают вещественные типы. Любое заданное значение выражения-селектора может входить в список значений неоднократно, но выполнятся будет лишь первая подходящая ветвь.

Рассмотрим примеры.

Пример1. Вывести на экран словесную интерпретацию введенного однозначного натурального числа.

Program ramdjon;

Digit: integer;

Begin

Write (‘ввести одно число’);

Readn (digit);

If (digit< 0) or (digit> 9)

Then

Writeln (‘Вы ввели не однозначное число! ‘)

Else

Case digit of

0: writeln ('ноль’);

1: writeln (‘один’);

2: writeln (‘два’);

3: writeln (‘три’);

4: writeln (‘четыре’);

5: writeln (‘пять’);

6: writeln (‘шесть’);

7: writeln (‘семь’);

8: wirteln (‘восемь’);

9: writeln (’девять’);

End;

End.

Пример2. Дано натуральное число N. Преобразовать его в зависимости от остатка деления числа N на число 17 по правилу:

если остаток равен 0, то N должно стать равным тоже 0;

если остаток равен 1 или 6, то N должно стать равным -N;

если остаток равен 2, 3 или 5, то N должно стать равным 2N;

если остаток равен 4, то N должно стать равным 3N;

в остальных случаях N равняется 5N.

Program Ost;

Var n: word;

Begin

Write (‘Введите число n=’);

Readln (n);

Case n mod 17 of

0: n: =0;

1, 6: n: =-n;

2, 3, 5: n: =2*n;

4: n: =3*n;

Else n: =5*n;

end;

Writeln (‘n=’, n);

End.

Пример2. Дано целое число N (N< 10000 и N> -10000). Определить какое это число (однозначное, двузначное, трехзначное или четырехзначное).

Program Nat;

Var n: integer;

Begin

Write (‘Введите число n=’);

Readln (n);

Case n of

-9..9: Writeln (‘число ’, n, ’ однозначное’);

-99..99: Writeln (‘число ’, n, ’ двузначное’);

-999..999: Writeln (‘число ’, n, ’ трехзначное’);

-9999..9999: Writeln (‘число ’, n, ’ четырехзначное’);

Else Writeln (‘число ’, n, ’ больше 10000 или меньше -10000’);

end;

End.