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

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

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

If L then OP1 else OP2;

где:

If - если;

then – то;

else - иначе;

L – выражение логического типа;

OP1, OP2 – операторы.

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

Работа оператора: Вычисляется значение логического выражения, если вычисленное значение истинно, то выполняется оператор 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.

OP

L

T

F

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

If L then OP;

.

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

Работа оператора: Вычисляется значение логического выражения, если вычисленное значение истинно, то выполняется оператор 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.

Операторы цикла

Цикл – это многократно повторяющиеся фрагменты программ. Алгоритм циклической структуры – это алгоритм, содержащий циклы.

В ТР существует три оператора цикла:

• цикл с предусловием;

• цикл с постусловием;

• цикл с параметром.

Для всех циклов характерны следующие особенности:

• значения переменных используемых в цикле, и не изменяющиеся в нем д.б. определены до входа в цикл;

• вход в цикл возможен только через его начало;

• выход их цикла осуществляется как в результате его естественного окончания, так и с помощью операторов перехода.

Оператор цикла с предусловием

Оператор цикла с предусловием реализует следующую базовую конструкцию:

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

While L do OP;

где:

While - пока не;

do – выполнить;

L – выражение логического типа;

OP – тело цикла; оператор (простой или составной).

Рис. 9.3. Структурная схема оператора цикла с предусловием

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

Вычисление значения логического выражения предшествует выполнению операторов тела цикла, поэтому этот оператор цикла называется циклом с предусловием.

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

где: C=2,7; n=2; a=0.5; 0<t<1; t=0,1.

Program Ex_2;

Uses crt;

Var

y, C, a, t :real;

n :integer;

Begin

clrscr;

Writeln('Введите C, a, n'); Read(C, a, n);

Writeln('Результат:');

Writeln('t’:5,’y’:15);

t:=0;

While t<1 do

Begin

y:=C*exp(a*t)*cos(n*t);

Writeln(t:4:1,’ ‘:5, y:10);

t:=t+0.1;

End;

End.