Лабораторная работа. Основы работы в VBA. Линейное программирование

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

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

Пример 1. Вычислить значение функции при х = 45°.

 \( y= \frac{2 cos(x- \frac{x}{6} )+x}{ \frac{1}{2} +sin^2 x= \sqrt{x} } \).

Sub primer_1()

Dim x As Integer

Dim y As Single

Dim pi As Double, x_rad As Double

'определяем численное значение х

x = 45

'определяем численное значение числа Пи

pi = 4 * Atn(1)

' переводим х в радианы, так как в тригонометрических функциях

' аргумент должен быть в радианах

x_rad = x * pi / 180

' производим расчет заданного математического выражения

y = (2 * Cos(x_rad - x_rad / 6) + x) / (1 / 2 + Sin(x_rad) ^ 2 + Sqr(x))

'выводим ответ в диалоговое окно

MsgBox "y=" & y

End Sub