Своеобразие русской архитектуры: Основной материал – дерево – быстрота постройки, но недолговечность и необходимость деления...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
Топ:
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Устройство и оснащение процедурного кабинета: Решающая роль в обеспечении правильного лечения пациентов отводится процедурной медсестре...
Интересное:
Что нужно делать при лейкемии: Прежде всего, необходимо выяснить, не страдаете ли вы каким-либо душевным недугом...
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Национальное богатство страны и его составляющие: для оценки элементов национального богатства используются...
Дисциплины:
2017-11-17 | 506 |
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 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!