Программирование в среде Turbo Pascal / Pascal / 4_3

Turbo Pascal | Глава 4 a:link {TEXT-DECORATION: none} a:visited {TEXT-DECORATION: none} a:active {TEXT-DECORATION: none} a:hover {COLOR: #007EFF;} A.menu:link { Color:#FFFFFF; } A.menu:visited { Color:#EEEEEE; } A.menu:hover { Color:#CCDDFF; } .glow { FILTER: DropShadow(Color=#000000, OffX=1, OffY=1, Positive=1)FILTER: Glow(Strength=1, Color=#454545); } .logot { color:#FFFFFF; }  

В в е д е н и е  /  О г л а в л е н и е  /  О т   а в т о р а

М е н ю

1. Интегрированная среда разработки программ Turbo Pascal 7.0 2. Лексические основы языка Pascal 3. Программирование алгоритмов линейной структуры 4. Алгоритмы и программы ветвящейся структуры 4.1 Условный оператор If

4.2 Примеры составления алгоритмов и программ с использованием

оператора If

4.3 Оператор выбора Case 5. Алгоритмы и программы циклической структуры 6. Регулярные типы данных. Массивы 7. Подпрограммы в Turbo Pascal

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

      Оператор выбора Casе очень удобен при программировании, особенно когда возможно большое количество вариантов решения задачи.

      Оператор выбора Casе состоит из выражения-переключателя и списка операторов, каждому из которых предшествует одна или более констант выбора или ключевое слово Else. Переключатель (иногда называют селектор) должен иметь порядковый тип (размером в байт или слово). Таким образом, строковый тип и длинный целый тип являются недопустимыми типами переключателя. Все константы выбора должны быть уникальными и иметь порядковый тип, совместимый с типом переключателя.

      Оператор варианта Case приводит к выполнению оператора, которому предшествует константа выбора, равная значению переключателя или диапазону выбора, в котором находится значение переключателя. Если такой константы выбора или такого диапазона выбора не существует и присутствует ветвь Else, то выполнятся оператор, следующий за ключевым словом Else. Если же ветвь Else отсутствует, то никакой оператор не выполняется.

      Приведем некоторые примеры оператора варианта:

      Case Operat of

         plus: X := X+Y;

         minus: X := X-Y;

         times: X := X*Y;

      End;

      Case I of

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

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

         10..100: Writeln('Между 10 и 100');

      End;

Учебно-познавательный сайт по программированию в среде Turbo Pascal

Мирошниченко Марина, Краснодар, 2003