Листинг 1. Вычисление расстояния до складских помещений

Sub Пример1()

Dim a, b, c, d, r As Single

a = InputBox(" Введите значение расстояния a", " Окно ввода")

b = InputBox(" Введите значение расстояния b", " Окно ввода")

c = InputBox(" Введите значение расстояния c", " Окно ввода")

d = 2 * ((a * b) ^ 2 + (a * c) ^ 2 + (b * c) ^ 2) - a ^ 4 - b ^ 4 - c ^ 4

r = Round((a * b * c) / Sqr(d), 3)

Debug.Print " Расстояние до складских помещений = "; r; " км"

End Sub

Листинг 2. Вычисление суммы значений двух функций

Sub Пример2()

Dim a, b, c, x, t, p, y, z, s As Single

a = InputBox(" Введите значение переменной a", " Окно ввода")

b = InputBox(" Введите значение переменной b", " Окно ввода")

c = InputBox(" Введите значение переменной c", " Окно ввода")

x = InputBox(" Введите значение переменной x", " Окно ввода")

t = a + b

p = c * x

y = (t ^ 3 - Sin(p)) / (a - 3.75)

z = Log(p) - ((t + 3.75) / a) ^ (1 / 3)

s = Round(y + z, 3)

Debug.Print " s = "; s

End Sub

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

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

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

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

1) Общая форма оператора условного перехода такова:

If Условие Then Оператор_1 Else Оператор_2

Оператор_1 выполняется в том случае, если Условие истинно, в про­тивном случае выполняется Оператор_2.

2) Последовательность вычислений, выбранная по условию, может задаваться не одним, а несколькими операторами. При этом условный оператор имеет блочную структуру:

If Условие Then

Блок_операторов_1

Else

Блок_операторов_2

End If

Блок_операторов_1 выполняется в том случае, если Условие истинно, в противном случае выполняется Блок_операторов_2.

3) В условном операторе может проверяться несколько условий, тогда он имеет вид:

If Условие_1 Then

Блок_операторов_1

ElseIf Условие_2 Then

Блок_операторов_2

ElseIf Условие_3 Then

...

Else

Блок_операторов_по_умолчанию

End If

Если истинно Условие_N, выполняется Блок_операторов_N, если же все условия ложны, выполняется последний Блок_операто­ров по умолчанию.

4) В случае, когда ветвь Else является необязательной, условный оператор может быть записан в краткой форме:

If Условие Then

Блок_операторов_1

End If

Выражения-условия записы­ваются с помощью операций отношения. Отношение — это два выражения, разделенных между собой знаком операции отношения (>, <, =, < >, < =, > =). Отношение является простейшей конструкцией логического выражения. Оно вычисляет результат - истина, если выполняется заданное соотношение, и ложь - в противном случае.

Логические операции: NOT («не» - отрицание), AND («и» - логическое умножение), OR («или» - логическое сложение).

Приоритет выполнения операций при вычислении логических выражений следующий: 1) NOT; 2) AND; 3) OR.

Например, если значение переменной X принадлежит некоторому интервалу значений от а до b, то переменной Y будет присвоено значение 1, иначе переменной Y будет присвоено значение 0.

If (X> =a) and (X< =b) Then

Y=1

Else

Y=0

End If

В пункте 2.6.2 были построены математические модели и блок-схемы алгоритмов разветвлённой структуры. Рассмотрим примеры программ, где алгоритм решения является разветвлённым.