End if
‘Конец цикла
Next dblT
‘Конец функции
End Function
,
‘Небольшая процедура, используемая при отладке
Sub test()
Dim dblX As Double
Const Pi = 3.1415
‘Тестируемое значение
dblX =1.5
‘Выводим значение, результат и правильный результат
‘ в окно отладки
Debug Prim dblX, Gamma(dblX), Sqr(Pi)/2
Stop
End Sub
В начале процедуры происходит объявление нескольких переменных, и
определяются три константы, соответствующие пределам и шагу
интегрирования. Использование констант заметно упрощает изменение цикла
интегрирования при тестировании. Затем инициализируется переменная
суммирования Gamma, и начинается цикл, выполняющий интегрирование. В
пределах цикла вычисляются два значения подинтегрального выражения, и
находится их среднее, которое затем умножается на шаг интегрирования для
получения площади трапеции. Найденная площадь прибавляется к переменной
суммирования. В конце цикла происходит сравнение величины последнего
слагаемого со всей суммой. Если слагаемое меньше суммы более чем в 1*10
-9
раз, то цикл прекращается.
После функции приводится небольшая процедура, используемая при отладке
программы. Процедура вызывает функцию для проверки синтаксических
ошибок и правильности вычисляемых значений. Для этого переменным
присваиваются значения, вызывается функция, и результаты выводятся в окно
отладки. Затем выполнение прекращается, и отображается окно отладки, в
котором можно видеть текущие значения. При возникновении проблемы для
проверки значений других переменных в этот момент можно использовать
команды отладки.
3.2. Выполнение задания 2.
Для использования новой функции в рабочем листе, создайте новый рабочий
лист и вызовите функцию с заданным аргументом. Вновь используйте значение
1,5 для проверки точности результата. Для этого:
1. Создайте таблицу 31 и присвойте ей имя «Точность».
2. Введите следующие значения в ячейки F5:F8
