ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЕНИЙ. ОПЕРАТОРЫ IF и CASE.

1.

 

if Условие Then

Begin

{Эти инструкции выполняются}

{если Условие истинно}

End;

{Если условие ложно, то выполняется

следующая по порядку за оператором условия инструкция}

 

 

if Условие then

Begin

{Эти инструкции выполняются}

{если Условие истинно}

End

Else

Begin

{Эти инструкции выполняются}

{если Условие ложно}

End;

2.

 

Обычно при написании программы не рекомендуется использовать многократно вложенные друг в друга условные операторы If, т.к. программа становится громоздкой и ее трудно понимать. Считается, что число уровней не должно превышать 2-3. Если необходимо проверить много условий, используется оператор выбора Case.

 

 

case Выражение of СписокКонстант1: Begin {Инструкции1} End; СписокКонстант2: Begin {Инструкции2} End; ... СписокКонстантN: Begin {ИнструкцииN} End; else Begin {Инструкции} End; end;

Case i of 1: x:=i+10; 2: x:=i+100; 3: x:=i+1000; End;   Case i of 1..10: Writeln(‘Число’,i:4,’ в диапазоне 1-10’); 11..20: Writeln(‘Число’,i:4,’ в диапазоне 11-20’); 21..30: Writeln(‘Число’,i:4,’ в диапазоне 21-30’) Else Writeln(‘Число вне диапазона’); End;

3.

 

Оператор безусловного перехода – выполняет оператор, следующий не по порядку, а помеченный меткой.

 

LABEL metka01; {метка должна быть обязательно описана}

…

Begin

…

 

Metka01 : Оператор; {оператор, который должен быть выполнен по команде Goto}

…

 

Goto metka01;

….

End.

 

 

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