9.5.2. Операторы условного перехода

Структура условного оператора имеет следующий вид:

IF <условие> THEN <оператор 1> ELSE <оператор 2>;

где: IF, THEN, ELSE – зарезервированные слова (если, то, иначе);

<условие> – произвольное выражение логического типа;

<оператор 1>, <оператор 2> – любые операторы языка Турбо Паскаль.

Условный оператор работает по следующему алгоритму. Вначале вычисляется условное выражение <условие>. Если результат есть TRUE (истина), то выполняется <оператор 1>, а <оператор 2> пропускается; если результат есть FALSE (ложь), наоборот, <оператор 1> пропускается, а выполняется <оператор 2>. Поскольку любой из операторов <оператор 1> и <оператор 2> может быть любого типа, в том числе и условным, а в то же время не каждый из «вложенных» условных операторов может иметь часть ELSE <оператор 2>, то возникает неоднозначность трактовки условий. Эта неоднозначность в Турбо Паскале решается следующим образом: любая встретившаяся часть ELSE соответствует ближайшей к ней «сверху» части THEN условного оператора. Условный оператор позволяет проверить некоторое условие и в зависимости от результатов поверки выполнить то или иное действие. Таким образом, условный оператор – это средство ветвления вычислительного процесса.

а) Простой, короткий IF (если)

Структура оператора имеет вид:

1) IF (условие) THEN (оператор или метка);

Пример 3.

Вычислить y: = ln x , если x > 0.

Написать программу вычисления функции.

Решение.

Программа имеет вид.

Program PR3;

var y, x : real;

begin

writeln(‘ввести x’);

Readln (x);

{простой, короткий IF}

IF x > 0 THEN y: = ln(x);

writeln ( `x=`, x: 7:2, `y=`, y :7 :2 );

end.

b) Простой, полный IF

Пример 4.

Вычислить y = ln x , если X>0, иначе y=cos x.

Написать программу вычисления функции.

Решение.

В примере 4 рассматривается не только вариант «тогда», но и «иначе».

Программа имеет вид:

Program PR4;

var x, y: real;

begin

writeln(‘ввести X’);

Readln (X);

{простой, полный IF}

if x>0 THEN y:= ln (x)

ELSE y:=cos(x);

Writeln (`x = `, x:6:2 , `y = `, y:7:2)

end.

Если Х > 0, тогда выполняется оператор за словом THEN, иначе выполняется оператор, следующий за этой строкой.

c) Cоставной, короткий IF

Составной оператор – это последовательность произвольных операторов программ, заключенная в операторные скобки – зарезервированные слова BEGIN…END. Составные операторы – важный инструмент Турбо Паскаля, дающий возможность писать программы по современной технологии структурного программирования (без перехода GOTO).

Язык Турбо Паскаль не накладывает никаких ограничений на характер операторов, входящих в составной оператор.

Пример 5.

Вычислить y=ln x, z=y–5x, если x > 0.

Написать оператор условия вычисления функции.

Решение.

Оператор условия запишется в виде:

IF x>0 then

Begin

y:=Ln(x);

z:=y–5*x;

Writeln (`y = `, y:7:2, `z =`, z:8:3)

end;

d) Составной, полный IF

Пример 6.

Рассмотрим задание примера 4, но вывод делается для каждого условия.

Решение.

Оператор условия запишется в виде:

IF x>0 then

Begin

Y:=ln (x);

Writeln (`x = `, x:6:2 ,`y =`, y:7:2);

End

Else

begin

Y:=cos (x);

Writeln (`x = `, x:6:2,`y =`, y:7:2);

End;

В примере 6 после слов then, еlse операторы заключены в операторные скобки.

e) Структурированный (разветвленный) IF

1) Структурированный, короткий, простой IF.

В структурированном операторе содержится последовательная проверка вложенных условий.

Пример 7.

Вычислить r=ln(x+y+z), если x > 0, y > 0, z > 0.

Написать фрагмент программы вычисление функции структурированным оператором условия.

Решение.

Оператор условия запишется в виде:

IF x>0 then

IF y>0 then

IF z>0 then

R:=LN(X+Y+Z);

Пример 8.

Если вместо структурированного оператора условия использовать оператор с логическим выражением, то пример 7 запишется в виде:

IF (x>0) and (y>0) and (z>0) then R:=LN(X+Y+Z);

В примере 8 уместна логическая операция «and». Данную строку можно прочитать следующим образом «если (x>0) и (y>0) и (z>0) тогдаR:=LN(x+y+z);». В примере 9 используется оператор условия с логическим выражением, где применяется логическая операция «or».

Пример 9.

Вычислить r=x+y+z, если выполняется хотя бы одно из условий x>0, y>0, z>0. Оператор условия запишется в виде:

IF (x>0) or (y>0) or (z>0) then R:=(x+y +z);

Данную строку можно прочитать следующим образом «если (x>0) или (y>0) или (z>0) тогдаR:=LN(x+y+z);». В примерах 8, 9 логические выражения включают в себя логические операции и условия, каждое условие следует заключать в скобки.

2) Структурированный, полный, простой IF.

Пример 10.

Вычислить:

r=ln(x)+ln(y)+ln(z), если x>0, y>0, z>0;

r= ln(x)+ln(y)+z, если x>0, y>0;

r=ln (x)+y+ z, если x>0, иначе r = x+y+z .

Оператор условия запишется в виде:

IF x>0 then

IF y>0 then

IF z>0 then r:=ln(x)+ln(y)+ln(z) else r:= = ln(x)+ln(y)+z

Else r:= ln (x)+y+z

Else r:= x+y+z;

Вначале проверяются три условия. Если они выполняются, то вычисляется r=ln(x)+ln(y)+ln(z). Иначе выполняются первые два условия, а последнее не выполняется и z ≤ 0 (первое слово else относится к последнему условию). В этом случае вычисляется r= ln(x)+ln(y)+z.

Если из двух условий выполняетcя только первое, то вычисляется r=ln x+y+z (второе слово else относится ко второму условию) и в этом случае y ≤ 0. Последнее слово else относится к первому условию и в этом случае х ≤ 0. В этом случае вычисляется r=x+y+z.