Алгоритм Ветвление Повторение предыдущего материала (линейный алгоритм)

Пример

Рассчитать вес стального цилиндра со сквозным прямоугольным отверстием

Высота цилиндра h

Диаметр цилиндра d

Ширина отверстия a

Высота отверстия b

Удельный вес стали 7,85 г/см³

1. Определить объем цилиндра

2. Определить объем отверстия

3. Определить вес тела

Option Explicit Sub prog() ‘Объявление данных Dim a as single, b as single, d as single, H as single Dim V1 as single, V2 as single, g as single, M as single ‘Ввод исходных данных a = InputBox (“a = “) b = InputBox (“b = “) d = InputBox (“d = “) h = InputBox (“h = “) g = InputBox (“удельный вес материала = “) ‘Расчет V1 = 3.142 * d^2 * h / 4 'объем цилиндра V2 = a * b * h 'объем отверстия M= (V1 - V2) * g 'объем тела ‘Вывод результата на лист Sheets(“Лист3”).Cells(1,1) = М End Sub

РазветвлЯющийся вычислительный процесс (ветвление)

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

Выбор нужной ветви алгоритма обычно производится по результату проверки некоторого условия. Шаг алгоритма, на котором выполняется проверка условия, называется шагом выбора или шагом ветвления. Простейший вид шага выбора представляет собой проверку логического условия, т.е. условия, которое может быть истинным или ложным.

Шаг выбора может быть с одной (неполная форма) и двумя альтернативами (полная форма).

Шаг выбора, при котором нужно выполнять одну последовательность действий, если условие истинно, и другую, если условие ложно, считается шагом выбора (ветвления) с двумя альтернативами.

Шаг выбора, при котором необходимо выполнить некоторую последовательность действий в случае истинности условия и не нужно ничего выполнять, когда условие ложно, является шагом ветвления с одной альтернативой.

В обоих случаях в результате проверки условия будет выбран только один из путей. После этого выполнение алгоритма будет продолжено (выполняется его очередной блок).

Алгоритм, содержащий хотя бы один шаг ветвления, называется разветвляющимся.

Оператор условного перехода

If Then Else

Ветвление с одной альтернативой
Синтаксис	Пример
If <условие> then инструкции End If	Если число а > 0, то его вывести на печать. Если число а  0, то ничего не выводить.

Ветвление с двумя альтернативами
Синтаксис	Пример
If <условие> then инструкции Else инструкции End If

Множественное ветвление

Фрагмент программы

If x < 0 Then y = a^2 + x Else If x = 0 Then y = x + 5 Else y = x - 5 End If End If

***Внимание!!!!! Каждый оператор условного перехода должен быть закрыт с помощью End If. В данной программе его необходимо закрыть 2 раза.