Для печати комментариев используются строковые константы, которые
помечаются в начале строки апострофом "Например, это строка -
комментарий".
3. Порядок выполнения работы.
Задание 1.
Создать макрос на языке Visual Basic для интегрирования методом
трапеций.
Задание 2.
Создать рабочий лист для вычисления интеграла с заданной
точностью.
3.1. Выполнение задания 1.
1. Запустить редактор Visual Basic с помощью команды меню Сервис -
Макрос - Редактор Visual Basic, создать новый модуль и присвоить ему имя
GammaF.
2. Ввести следующую процедуру:
Option Explicit
‘Вычисление Гамма-функции по правилу трапеций
Function Gamma ( dblx As Double ) As Double
Dim dblT As Double ‘Переменная интегрирования
Dim dblTerm As Double ‘ Член суммы
Dim dblTerm1 As Double ‘Первая часть члена суммы
Dim dblTerm2 As Double ‘ Вторая часть члена суммы
Const tStart = 0 ‘Нижний предел интегрирования
Const tEnd = 20 ‘ Верхний предел интегрирования
Const Delt = 0.01 ‘Шаг интегрирования
Const CutOff = 0.000000001 ‘Точность вычисления
‘ Обнуляем переменную суммирования
Gamma = 0
‘Цикл интегрирования, за один цикл вычисляется один член суммы
For dblt = tStart To tEnd Step Delt
‘Вычисляем один член суммы по правилу трапеций
blTerm1 = Exp(-dblt)*dblT^(dblX - 1)
blTerm2 = Exp(-dblt - delT)*(dblT +DelT)^(dblX - 1)
blTerm = Delt*(dblTerm1 +dblTerm2)/2
‘Добавляем полученное значение к результату
Gamma = Gamma + dblTerm
‘Завершаем вычисления, если последний член меньше,
‘ чем первые девять от всей суммы
if dblTerm / Gamma < CutOff Then
‘Прерывание цикла, если точность вычисления ‘достигнута
Exit For
‘Конец оператора if
