Условный оператор в Паскале

Условный оператор в языке программирования Паскаль используется для реализации ветвлений в программах. Структурная схема базовой конструкции приведена на рис.  9.1:

Рис. 9.1. Структурная схема условного оператора

Формат записи:

If L then OP1 else OP2;
где:
If      - если;
then – то;
else  - иначе;
L – выражение логического типа;
OP1, OP2 – операторы.

Работа оператора: Вычисляется значение логического выражения, если вычисленное значение истинно, то выполняется оператор OP1 в противном случае OP2. После выполнения операторов OP1 или OP2 выполняется оператор, следующий за условным оператором.

Пример записи условного операторы:

If  (x<0) and (x>-1) then y:=cos(x) else y:=sin(x);

В качестве OP1 или OP2 м.б. составной оператор:

If  x>0 then y:=cos(x)
                                                     Begin
            y:=sin(x); x:=x+0.1;
                                                      End;

В качестве OP1 или OP2 м.б. условный  оператор:

If  x>0 then y:=cos(x) else if x>0  then y:=sin(x);

В Паскале допускается короткая форма условного оператора, соответствующая структуре приведенной на рис. 9.2.

Рис. 9.2. Структурная схема условного оператора

Формат записи:
If L then OP;

Работа оператора: Вычисляется значение логического выражения, если вычисленное значение истинно, то выполняется оператор OP в противном случае  выполняется оператор, следующий за условным оператором.
Пример записи:

If  x>0 then y:=cos(x);

Пример 9.2. Составить программу вычисления функции  y для заданного значения x в языке программирования Паскаль.

Program Ex_1; 
Uses crt;
Var
x, y       :real;
Begin
clrscr;
Writeln('Введите x');
Read(x);
If x>0 then y:=cos(x)  
else
Ifx<0  then y:=exp(x);
Writeln('Результат');
Writeln(‘ y=’, y:10);
End.