Условный оператор if используется для разветвления процесса вычислений на два направления. Структурная схема оператора приведена на рис. 2
Формат оператора:
Формат оператора:
if выражение then оператор_1 [else оператор_2;]
Сначала вычисляется выражение, которое должно иметь логический тип. Если оно имеет значение true, выполняется первый оператор, иначе - второй. После этого управление передается на оператор, следующий за условным.
Одна из ветвей может отсутствовать (см. рис. 2). Операторы, входящие в состав условного, могут быть простыми или составными.
Составной оператор (блок) обрамляется ключевыми словами begin и end. Блок применяют в том случае, когда по какой-либо ветви требуется выполнить несколько операторов.
| Рис. 2 |
Одна из ветвей может отсутствовать (см. рис. 2). Операторы, входящие в состав условного, могут быть простыми или составными.
Составной оператор (блок) обрамляется ключевыми словами begin и end. Блок применяют в том случае, когда по какой-либо ветви требуется выполнить несколько операторов.
if a < 0 then b := 1; {1}
if (a < b) and ((a > d) or (a = 0)) then inc(b)
else begin
b := b * a; a := 0
end; {2}
if a < b then
if a < c then m := a else m := c
else
if b < c then m := b else m := c; {3}
|
Частая ошибка при программировании условных операторов - неверная запись проверки на принадлежность диапазону. Например, условие 0 < x < 1 нельзя записать непосредственно. Правильный способ: if(0 < x) and (x < 1) then..., поскольку фактически требуется задать проверку выполнения одновременно двух условий: x > 0 и x < 1.
Вторая ошибка - отсутствие блока после else, если на самом деле по этой ветви требуется выполнить более одного действия. Эта ошибка не может быть обнаружена компилятором, поскольку является не синтаксической, а семантической, то есть смысловой.
| Теперь в соответствии с формулами опишем последовательность действий словами: если x < -2, то присвоить переменной y значение 0; если -2 <= x < -1, то присвоить переменной y значение -x - 2; если -1 <= x < 1, то присвоить переменной y значение x; и так далее. program calc_function_1;
var x, y : real;
begin
writeln(' Введите значение аргумента'); readln(x);
if x < -2 then y := 0;
if (x >= -2) and (x < -1) then y := -x - 2;
if (x >= -1) and (x < 1) then y := x;
if (x >= 1) and (x < 2) then y := -x + 2;
if x >= 2 then y := 0;
writeln('Для x = ', x:6:2, ' значение функции y = ', y:6:2);
end.
|