Разветвляющийся алгоритм

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

Базовая структура «ветвление» существует в следующих основных вариантах:

1. если—то;

2. если—то—иначе;

3. выбор — иначе.

Алгоритм на языке Турбо Паскаль	Блок-схема алгоритма
1. если—то
begin IF <условие> THEN <оператор1> end
2. если—то—иначе
begin IF <условие> THEN <оператор1> ELSE <оператор2> end
3. выбор—иначе
begin IF <условие1> THEN <оператор1> ELSE(IF<условие2>THEN <оператор2> ... ELSE(IF<условиеN>THEN <операторN>). ELSE <операторN+1>)...) end

Рассмотрим примеры разветвляющихся алгоритмов.

Пример 3.5. Составить алгоритм определения наибольшего из двух числовых значений N₁ и N₂ и присвоить его переменной NB.

Блок-схема алгоритма	Алгоритм на языке Турбо Паскаль
Начало Конец Вывод ' NB= ', NB, T:=T+KT NB:=N1 Ввод данных	Begin ReadLn(N1,N2); NB:=N1; If N2>NB Then NB:=N2; WriteLn(' NB=',NB) End.

Пример 3.6. Составить алгоритм определения наибольшего из трех числовых значений N₁, N₂ и N₃ и присвоить его переменной NB.

Алгоритм выбора наибольшего, приведенный в примере 3.5, может дать ошибочный результат, т.к. при невыполнении условного оператора из-за синтаксической ошибки в записи оператора результат будет NB:=N1. Чтобы избежать этой ошибки на практике применяют алгоритм, в котором в качестве начального значения переменной NB принимают значение (-10¹⁹) заведомо меньшее проверяемых значений элементов списка. Алгоритм на языке Турбо Паскаль имеет вид.

begin

ReadLn(N1,N2,N3);

NB:= -1E+19;

IF N1>NB THEN NB:=N1;

IF N2>NB THEN NB:=N2;

IF N3>NB THEN NB:=N3;

WriteLn(' NB=',NB)

end.

Пример 3.7. Составить алгоритм вычисления значения функции y(x), заданной в виде

y=

Числовые значения x и a заданы.

Проверка на равенство действительных числовых значений производится проверкой выполнением условия где значение x зависит от точности вычислений (например, 10^-5). Возведение в произвольную степень (кроме возведения в квадрат и возведения в степень числа e) в языке Турбо Паскаль отсутствует. Для возведения (x-a) в степень (1/3) можно воспользоваться очевидным равенством

Алгоритм на языке Турбо Паскаль имеет вид.

begin

ReadLn(x,a);

IF x>a THEN y:=x*EXP(1/3*LN(x-a)) ELSE

IF x<a THEN y:=EXP

y:=x*SIN(a*x);

WriteLn(' x=',x, ' a=',a' x=',x)

end.

Первый условный оператор проверяет условие x>a и в случае его выполнения (имеет значение TRUE) осуществляется переход к оператору, вычисляющему y:=x*EXP(1/3*LN(x-a)), иначе проверяется условие x<a. Если это условие выполняется, осуществляется переход к оператору, вычисляющему y:=EXP , иначе (при x=a) -.к оператору y:=x*SIN(a*x). После перехода по к вычислениям по любой из формул осуществляется переход в общую ветвь к оператору вывода результатов.

Дата добавления: 2014-01-04