![](/img/CyberPedia.jpg)
История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...
Папиллярные узоры пальцев рук - маркер спортивных способностей: дерматоглифические признаки формируются на 3-5 месяце беременности, не изменяются в течение жизни...
Топ:
Выпускная квалификационная работа: Основная часть ВКР, как правило, состоит из двух-трех глав, каждая из которых, в свою очередь...
Основы обеспечения единства измерений: Обеспечение единства измерений - деятельность метрологических служб, направленная на достижение...
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
Интересное:
Финансовый рынок и его значение в управлении денежными потоками на современном этапе: любому предприятию для расширения производства и увеличения прибыли нужны...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Дисциплины:
![]() |
![]() |
5.00
из
|
Заказать работу |
Содержание книги
Поиск на нашем сайте
|
|
Для реализации ветвления на Pascal используются условный оператор if и оператор множественного выбора case.
Условный оператор (оператор альтернативы) − это структурированный оператор, предназначенный для выделения из составляющих его операторов одного, который и выполняется в дальнейшем.
Оператор if, как и остальные структурированные операторы, часто включает в себя составные операторы.
Формат условного оператора (полная форма):
if < логическое выражение > then < оператор 1> else < оператор 2>;
где if означает если, then – то или тогда, else − иначе.
Принцип действия: вычисляется значение логического выражения (другими словами, проверяется условие). Если значением логического выражения является true (истина), то выполняется оператор, следующий после слова then, т. е. оператор 1. Если значением логического выражения является false (ложь), то выполняется оператор, следующий после слова else, которым является оператор 2.
Можно использовать краткую форму условного оператора:
if < логическое выражение > then < оператор >;
Принцип действия: вычисляется значение логического выражения, т. е. проверяется условие. Если значением логического выражения является true (истина), то выполняется < оператор >, следующий после слова then. Если значением логического выражения является false (ложь), то в этом случае < оператор > пропускается, а управление передается тому оператору, который следует за условным.
Примечания
1 Если в зависимости от условия предполагается выполнить несколько операторов, то соответствующие операторы заключаются в операторные скобки begin и end, т. е. организуется составной оператор.
2 Перед зарезервированными словами then и else знак; никогда не ставится, т. к. конструкция if..then..else.. является единым структурированным оператором.
Пример 3. Составьте программу для вычисления значения выражения при различных значениях переменной a 1:
(4)
Решение.
Program task_if;
Var
a1: real; {описание переменной}
z, z1: real; {описание вспомогательной и
вычисляемой переменной}
Begin
write('Введите значение a1');{вывод подсказки}
read(a1); {ввод значения переменной a1}
if a1>0
then z:=sqr(ln(a1)/ln(10))
Else
if a1<0
then begin z1:=cos(a1)/sin(a1); {расчет котангенса}
z:=z1/(sqr(z1)*z1+5)
End
else z:=0;
writeln('a1=',a1:3:2,' z=',z:6:3)
End.
Оператор множественного выбора case позволяет выбрать одно из нескольких возможных продолжений программы. Параметром, по которому осуществляется выбор, служит ключ выбора − выражение любого порядкового типа (кроме longint).
Формат оператора выбора:
case < ключ_выбора > of
|
< список_выбора 1>: < оператор 1>;
< список_выбора 2>: < оператор 2>;
…
< список_выбора N>: < оператор N>;
[ else < операторы >]
end;
где case, of, else, end − зарезервированные слова (в переводе означающие выбор, из, иначе, окончание соответственно);
<ключ_выбора> − имя переменной или выражение порядкового типа (кроме longint);
<список_выбора 1 >, …, <список_выбора N> − константа или список констант того же типа, что и выражение < ключ_выбора >;
<оператор 1 >, …, <оператор N> − операторы языка Pascal, каждый из которых может быть простым, составным и структурированным оператором.
Принцип действия оператора case: вычисляется значение выражения < ключ_выбора >, затем в последовательности < список_выбора > отыскивается тот, которому принадлежит константа, равная вычисленному значению ключа выбора. Оператор, соответствующий выбранному списку, выполняется, остальные − игнорируются. После этого оператор выбора case завершает свою работу. Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа выбора, управление передается оператору, стоящему за словом else. Часть else < операторы > может и отсутствовать.
Пример 4. Составить программу, организующую ввод значений x и y, и, в зависимости от выбора пользователя, отображающую на экране значение суммы, разности, произведения или частного от деления x и y.
Решение.
Program Calculus;
Label m1;
Var
operation: char; {знак операции}
x, y, z: real; {операнды и результат}
Begin
writeln('Введите переменные x,y= '); readln(x,y);
write('Введите знак операции: '); readln(operation);
case operation of
'+':z:=x+y;
'-':z:=x–y;
'*':z:=x*y;
'/':z:=x/y
Else begin
writeln('Неверный ввод');
goto m1;
end;
end;
writeln ('Результат=',z:8:3);
m1: End.
|
|
История развития пистолетов-пулеметов: Предпосылкой для возникновения пистолетов-пулеметов послужила давняя тенденция тяготения винтовок...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Архитектура электронного правительства: Единая архитектура – это методологический подход при создании системы управления государства, который строится...
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!