2014-02-05
577
Begin
Else
Begin
Else
End
Begin
Begin
Else
End
Begin
Инструкция if
Выбор
Выбор в точке разветвления алгоритма очередного шага программы может быть реализован при помощи инструкций if и case. Инструкция if позволяет выбрать один из двух возможных вариантов, инструкция case — один из нескольких.
Инструкция if позволяет выбрать один из двух возможных вариантов развития программы. Выбор осуществляется в зависимости от выполнения условия.
В общем виде инструкция if записывается так:
if условие then
// здесь инструкции, которые надо выполнить,
// если условие истинно.
// здесь инструкции, которые надо выполнить, // если условие ложно. end;
Обратите внимание, что перед else (после end) точка с запятой не ставится.
Выполняется инструкция if следующим образом:
1. Вычисляется значение условия (условие — выражение логического типа, значение которого может быть равно True или False).
2. Если условие истинно (значение выражения условие равно True), то выполняются инструкции, следующие за словом then (между begin и end). На этом выполнение операции if заканчивается, то есть инструкции, следующие за else, не будут выполнены.
|
|
|
Если условие ложно (значение выражения условие равно False), то выполняются инструкции, следующие за словом else (между begin и end).
На рис. 2.2 представлен алгоритм, соответствующий инструкции if-tnen-else.
Рис. 2.2. Алгоритм, реализуемый инструкцией if-then-else
Например, если переменная t обозначает тип соединения сопротивлений в электрической цепи (t=1 соответствует последовательному соединению, t=2 — параллельному), a r1 и r2 — величины сопротивлений, то приведенная ниже инструкция if осуществляет выбор формулы, по которой будет выполнен расчет.
if t=l then
z:=r1+r2;
z:=(r1+r2)/(r1*r2);
end;
Если в инструкции if между begin и end находится только одна инструкция, то слова begin и end можно не писать.
можно переписать так:
if otv=3 then
prav:=prav+l
ShowMessage('Ошибка!');
Если какое-либо действие должно быть выполнено только при выполнении определенного условия и пропущено, если это условие не выполняется, то инструкция if может быть записана так:
if условие then
{ инструкции, которые надо выполнить, если условие выполняется, истинно } end
На рис. 2.3 представлен алгоритм, соответствующий инструкции if-then.
Рис. 2.3. Алгоритм, реализуемый инструкцией if-then Например, инструкция
if n=m
then c:=c+l;
увеличивает значение переменной с только в том случае, если значения переменных n и m равны.
/ в рабочую тетрадь/
В предыдущем примере, в программе контроля веса, множественный выбор был реализован при помощи вложенных одна в другую инструкций if. Такой подход не всегда удобен, особенно в том случае, если количество вариантов хода программы велико.
|
|
|
В языке Delphi есть инструкция case, которая позволяет эффективно реализовать множественный выбор. В общем виде она записывается следующим образом:
case Селектор of
список1:
