Ключевое слово else связывается с ближайшим перед ним ключевым словом then, которое еще не было связано с каким-нибудь ключевым словом else.

Begin

Then

оператор1;

ifУсловие2

then оператор2

else оператор3;

оператор4

end

else

begin

оператор5;

if Условие3 then оператор6

end;

Однако если вложенный оператор ifявляется единственным оператором в ветви альтернативы, то может возникнуть неопределенность: какому If отвечает ветвь else.

Например:

if Условие1 then ifУсловие2 then оператор1 else оператор2;

Следует помнить правило:

Если в предыдущем примере более четко определить структуру вложенности, записав else на одном уровне с then, которому оно отвечает, то получим фрагмент:

ifУсловие

then

if Условие then оператор1

else оператор2;

Составим блок-схему и программу для вычисления значения функции

program Primer4;

var x, y : real;

begin

writeln('Enter x');

readln(x);

If x >= 1 then

begin

y:=1/(2*sqrt(x));

writeln(‘y=’,y:8:3)

end

else

If x=0 then writeln(‘Net resheniya’)

else

begin

y:=1/х;

writeln(‘y=’,y:8:3)

end;

readln

end.

ОПЕРАТОР ПОЛИВАРИАНТНОГО ВЫБОРА