Условные операторы. В Turbo Pascal существуют два условных оператора : IFи CASE.

В Turbo Pascal существуют два условных оператора : IFи CASE.

Условный оператор IF позволяет проверить некоторое условие и в зависимости от результата выполнить то или иное действие. С помощью этого оператора программируются алгоритмы разветвляющейся структуры. В случае разветвления вычислительного процесса от выполнения того или иного условия используются условные операторы IF, изменяющий естественный порядок выполнения операторов программы. Он может принимать одну из следующих форматов:

IF <условие> THEN <оператор 1> {Полный формат}

ELSE <оператор 2>;

IF < условие > THEN < оператор >; {Сокращенный формат}

Условие - логическое выражение булевского типа, т.е. принимает лишь два значения true или false. В случае записи условного оператора в полном формате, если значение выражения истинно, выполняется <оператор 1>, если ложно, то <оператор 2>. В случае сокращенной записи условного оператора, если результат логического выражения True, выполняется <оператор>, если False - оператор, следующий за оператором IF. Операторы if могут быть вложенными или сложными (структурными).

Пример:

if a*b=0 then beta:=a+b else beta:=(a*c+b*d)/(a*b);

if m=0 then sigma:=1 else if m<0 then sigma:=ln(abs(m))/ln(2)

else sigma:=exp(m-z);

Оператор выбора CASE. Обобщением условного оператора является оператор выбора, позволяющий одну из нескольких альтернативных ветвей программы в зависимости от значения некоторого выражения, называемого индексом выбора или селектором. Оператор выбора CASE позволяет сделать выбор из произвольного числа имеющихся вариантов. Он состоит из выражения, называемого селектором или индексом выбора, и списка параметров, каждому из которых предшествует список констант выбора, список может состоять и из одной константы. Тип констант должен быть совместимым с типом селектора. Для индекса выбора запрещены типы real и string.

Формат:

CASE <индекс выбор -селектор> OF

<метки 1>:<Оператор 1>;

< метки 2>:<Оператор 2>;

. . . . . . . . . . . . . . . . . . . . . . .

< метки N>:<Оператор N>

ELSE <Оператор m>;

END;

Пример: case alfa of 0: y:=sqr(x);

1: y:=exp(n*ln(x));

2: y:=cos(x);

7: y:=sin(x)/cos(x);

End;