2014-02-05
510
Begin
Else
Begin
Begin
Begin
{ инструкции 1 } end;
список2:
{ инструкции 2 } end;
списокМ:
{ инструкции N }
end;
{ инструкции)
end;
end;
где:
- Селектор — выражение, значение которого определяет дальнейший ход выполнения программы (т. е. последовательность инструкций, которая будет выполнена);
- Список N — список констант. Если константы представляют собой диапазон чисел, то вместо списка можно указать первую и последнюю константу диапазона, разделив их двумя точками. Например, список 1, 2, 3, 4, 5, 6 может быть заменен диапазоном 1..6.
Выполняется инструкция case следующим образом:
1. Сначала вычисляется значение выражения-селектора.
2. Значение выражения-селектора последовательно сравнивается с константами из списков констант.
3. Если значение выражения совпадает с константой из списка, то выполняется соответствующая этому списку группа инструкций. На этом выполнение инструкции саsе завершается.
4. Если значение выражения-селектора не совпадает ни с одной константой из всех списков, то выполняется последовательность инструкций, следующая за else.
|
|
|
Синтаксис инструкции case позволяет не писать else и соответствующую последовательность инструкций. В этом случае, если значение выражения не совпадает ни с одной константой из всех списков, то выполняется следующая за case инструкция программы.
На рис. 2.7 приведен алгоритм, реализуемый инструкцией case.
Рис. 2.7. Алгоритм, реализуемый инструкцией case.Ниже приведены примеры инструкции case.
case n_day of
1,2,3,4,5: day:='Рабочийдень. ';
6: day:='Cyббoтa!';
7: day:='Воскресенье!';
end;
case n_day of
1..5: day:='Рабочийдень.';
6: day:='Суббота!';
7: day:='Воскресенье!';
end;
case n_day of
6: day:='Суббота!';
7: day:='Воскресенье!';
else day:='Рабочийдень.';
end;
/в раб. Тетрадь/
Рассмотрим еще один пример использования инструкции case. При выводе числовой информации с поясняющим текстом возникает проблема согласования выводимого значения и окончания поясняющего текста.
Например, в зависимости от числового значения поясняющий текст к денежной величине может быть: "рубль", "рублей" или "рубля" (123 рубля, 120 рублей, 121 рубль). Очевидно, что окончание поясняющего слова определяется последней цифрой числа, что отражено в табл. 2.8.
Таблица 2.8. Зависимость окончания текста от последней цифры числа
| Цифра | Поясняющий текст | ||
| 0, 5, 6, 7, 8, 9 | Рублей | ||
| Рубль | |||
| 2,3,4 | Рубля | ||
Приведенное в таблице правило имеет исключение для чисел, оканчивающихся на 11, 12, 13, 14. Для них поясняющий текст должен быть "рублей".
Диалоговое окно программы приведено на рис. 2.12, а текст — в листинге 2.4. Поясняющий текст формирует процедура обработки события onKeyPress.
|
|
|
Рис. 2.12. Диалоговое окно программы
unit. rub_l; interface
