Образец выполнения контрольной работы Задание № 1
Задание:
Создать
пользовательскую функцию
и применить ее при вычислении значения
выражения
.
Вычисления выполнить для двух заданных
наборов исходных данных: 1)
a = 1,2;
b = 0,5;
x = 0,12;
2)
a = 0,7;
b = 1,05;
x = 0,75
В
ячейках, содержащих результаты вычислений,
установить формат – числовой, 3 знака
после запятой.
Пример отчета:
Программный код пользовательской функции имеет следующий вид:
Public Function Func(u As Single, x As Single) As Single
Func = Log(u * x) ^ 2 + 1
End Function
Таблица Excel, содержащая исходные данные и результат вычисления, приведена на рис. 1.
Рис. 1. Таблица Excel с исходными данными и результатами вычислений
Задание № 2
Задание:
Создать
пользовательскую
функцию
.
Использовать созданную функцию в в формуле Excel для табулирования значений Y при изменении X от 1 до 5 с шагом 0,5.
В ячейках, содержащих результаты вычислений, установить формат – числовой, 3 знака после запятой.
Пример отчета:
Программный код пользовательской функции имеет следующий вид:
Public Function Func(X As Single) As Single
If X > 5 Then
Func = 25 + X ^ 2
ElseIf X >= 1 And X <= 5 Then
Func = Sqr(Abs(X)) + 1
Else
Func = X ^ 3
End If
End Function
Таблица Excel, содержащая исходные данные и результат вычисления, приведена на рис. 2.
Рис. 2. Таблица Excel с исходными данными и результатами вычислений
Задание № 3
Задание:
Создать
пользовательскую
функцию
.
Использовать
созданную функцию в процедуре VBA
для табулирования значений Y
при изменении t
от -1
до 5
с шагом 0,5.
На рабочем листе Excel
создать таблицу с исходными данными и
таблицу зависимости
от t,
а также командную кнопку для запуска
процедуры. Предусмотреть очистку таблицы
зависимости от результатов выполнения
предыдущих расчетов. Создать
командную кнопку для запуска процедуры
табулирования.
Пример отчета:
Программный код пользовательской функции имеет следующий вид:
Public Function Func(t As Single) As Single
Dim X As Single
X=t^2-2*t+4
If X > 5 Then
Func = 25 + X ^ 2
Else
Func = Sqr(Abs(X)) + 1
End If
End Function
Программный код процедуры:
Public Sub Табуляция ()
Dim Tn As Single, Tk As Single, dT As Single
Dim T As Single, Y As Single
Dim n As Single
Tn = Range("B3")
Tk = Range("C3")
dT = Range("d3")
n = 6 'Номер строки листа Excel, начиная с которой
'выводятся результаты табулирования
'Очистка диапазона, в котором могут находиться результаты
'предыдущего выполнения процедуры табулирования
Range("B6", Range("C6").End(xlDown)).Clear
For T = Tn To Tk Step dT
Y = Func(T)
Cells(n, 2) = T
Cells(n, 3) = Y
n = n + 1
Next T
End Sub
Таблица Excel, содержащая исходные данные и результат вычисления процедуры, приведена на рис. 3.
Рис. 3. Таблица Excel с исходными данными и результатами вычислений