![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Оператор выбора
Оператор выбора используется для реализации нескольких альтернативных вариантов действий, каждый из которых соответствует своим значениям некоторого параметра. Структура оператора выбора такова:
CASE < ключ_выбора> OF < список_выбора> [ELSE < операторы> ] END Здесь CASE, OF, ELSE, END - зарезервированные слова (случай, из, иначе, конец); < ключ_выбора> - ключ выбора; < список_выбора> - одна или более конструкций вида: < константа_выбора>: < оператор>; < константа_выбора> - константа того же типа, что и выражение < ключ_выбopa>; < операторы> - произвольные операторы Турбо Паскаля. Оператор выбора работает следующим образом. Вначале вычисляется значение выражения < ключ_выбора>, а затем в последовательности операторов < список_выбора> отыскивается такой, которому предшествует константа, равная вычисленному значению. Найденный оператор выполняется, после чего оператор выбора завершает свою работу. Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа выбора, управление передается операторам, стоящим за словом ELSE. Часть ELSE < оператор> можно опускать. Тогда при отсутствии в списке выбора нужной константы ничего не произойдет и оператор выбора просто завершит свою работу. Пример. Разработать программу, которая вычисляет значение одной из заданных функций в указанной точке. Предоставим пользователю возможность выбрать функцию через простейшую имитацию меню, в котором каждой функции соответствует некоторое число (код): Введите код функции: - y=sin(x) - y=cos(x) - у=ехр(х) В зависимости от значения введенного кода выбирается одна из функций. Ниже представлена программа, реализующая разработанный алгоритм. Program ex; Var x, y: real; Kod: byte; Key: boolean; Begin WriteLn('Введите код функции: '); WriteLn('l - sin(x)'); WriteLn('2 - cos(x)'); WriteLn('3 - exp(x)'); ReadLn(Kod); Write('Введите значение аргумента: '); ReadLn(x); Key: =true; {признак правильности кода} case Kod of 1: y: =sin(x); 2: y: =cos(x); 3: y: =exp(x); else Key: =false; {код не соответствует функции} end; if Key then WriteLn ('IIpu x= ', x: 12: 6, 'y= ‘, y: 12: 6) else WriteLn ('Введен неверный код функции.'); End.
Лекция 7. Организация программ циклической структуры (2 часа)
|