5.1. Организация ветвлений в программах

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

1. Оператор перехода

goto n ;

где n- метка. При этом меткой можно помечать любой оператор, включая пустой.

2. Оператор выбора

Case <селектор> of

<список выбора 1> : <оператор 1> ;

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

<список выбора N>: <операторN>

[else<оператор>]

End ;

где <селектор> - выражение порядкового типа;

<список выбора> - константа или интервал из констант;

<оператор> - любой оператор языка TurboPascal(TP), включая составной.

Например:

вычислить значение функции f=

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

case b of

1: f := b + x;

2: f := b*x + sqr(x);

3: f := b*cos x

end;

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

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

а) в полной форме

if <логическое выражение>then <оператор 1>

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

б) в сокращенной форме

if <логическое выражение>then <оператор 1>;

где <оператор 1>, <оператор 2> - любые операторы ТР, включая условные.

Логическое выражение представляет собой условие, записанное с помощью логических операций not,and,or,xorи операций отношения (>, <, =, >=, <=, <>). Результат логического соотношения имеет два значения типаBoolean:trueиfalse. При этом логические операции выполняются согласно табл. 5.2.

Например, при определении принадлежности точки (x,y) области {0xx_max, 0yy_max} условный оператор можно записать в следующем виде:

if (X>=0) and (X<=Xmax) and (Y>=0) and (Y<=Ymax)

thenwriteln('Точка принадлежит указанной области')

elsewriteln('Точка не принадлежит указанной области');

Таблица 5.2

Логические операции

Переменные		Операции
A	B	not A	A and B	A or B	A xor B
False	False	True	False	False	False
False	True	True	False	True	True
True	False	False	False	True	True
True	True	False	True	True	False

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

при заданных значениях а и х.

Словесно-формульный алгоритм

1. Ввод значений а и х.

2. Вычисление значения промежуточной переменной b=ax.

3. Расчет функции fв зависимости от выполнения условия:

а) если b<0, то;

б) если 0≤b<4, то;

в) если b≥4, то.

4. Вывод значения f.

Блок-схема алгоритма

Текст программы

Program Vetvi; {заголовок программы}

Uses Printer; {подключение модля Printer}

Var a,b,x,c,d,f:real; {описание переменных}

BEGIN {начало операторной части}

writeln('Введите переменные:');

write('a='); readln(a);

write('x='); readln(x);

b:=a*x;

if b<0 then f:=2*b+abs(a-1)

else if b<4 then

begin

c:=exp(x);

d:=sqrt(1+a*a);

f:=c/d-1

end

else f:=exp(3*ln(a))-3*a+4;

writeln(Lst,'f=',f:12,' при х=',x:5:2,

' и а=',а:5:2);

END. {конец операторной части}

!! Запустите среду программирования Turbo Pascal, наберите текст вышеприведенной программы и сохраните файл с именем Vetvi.pas.