«Вычислить функцию при заданном значении аргумента. Способ выполнения – процедура-функция. Варинат 28»

Программа:

Public Function y(x)

y = (10.2 * Abs(Sin(x + 1.2) + (Cos(x)) ^ 2)) ^ (1 / 3)

End Function

5. Перешли на рабочий лист MS Excel.

6. Ввели на рабочий лист исходные данные.

Выполнить табулирование функции y=f(x) на отрезке х[х0; хк] с шагом х. Способ выполнения – процедура-подпрограмма. Предусмотреть ввод исходных данных с рабочего листа MS Excel и вывод таблицы аргумента х и функции у на рабочий лист MS Excel.

№ Функция Условие

28

x>5

x≤5

№ п/п Подвариант

1

Интервал шаг а b

28 1,0 9,0 1,0 0,45 1,4

4. Загрузили редактор VB.

5. Вставили модуль командой Insert – Module .

6. Создали процедуру с программным кодом командой Insert – Procedure, имеющую тип Sub, область видимости Public.

Программа:

Public Sub задача2()

Dim x, y, a, b, x0, xk, dx As Single

Cells(2, 1) = "a"

Cells(2, 2) = "b"

Cells(2, 3) = "x0"

Cells(2, 4) = "xk"

Cells(2, 5) = "dx"

Cells(5, 1) = "x"

Cells(5, 2) = "y"

a = Cells(3, 1).Value

b = Cells(3, 2).Value

x0 = Cells(3, 3).Value

xk = Cells(3, 4).Value

dx = Cells(3, 5).Value

i = 5

Задача 3

Вычислить сумму всех тех членов ряда, которые по величине больше заданного числа  и определить число членов ряда, соответствующих этому условию. Способ выполнения – процедура-подпрограмма. Предусмотреть ввод данных через диалоговое окно, вывод результатов на рабочий лист MS Excel.