Вычисление определенного интеграла

Пусть дана на отрезке [a,b]непрерывная функция y=f(x), принимающая положительные значения

Интеграл представляет собой площадь области, ограниченную осью x, графиком f(x) и прямыми x=a и x=b/

Вычисление интеграла методом трапеций

сводится к вычислению суммы всех элементарных площадей

1. Разбиваем интервал a-b на N частей (не менее 100).

2. Вычисляем элементарную площадь

- высота трапеции f(x1), f(x2) – основания трапеции

3. Определяем общую площадь, как сумму всех элементарных участков.

S = S + dS

Вычислить определенный интеграл методом трапеций

sub integral ()

Dim n a b dx m s x1 fx1 fx2 x2

n = InputBox("введите число отрезков")

a = InputBox("введите нижний предел:")

b = InputBox("введите верхний предел:")

dx = (b – a)/n ‘высота трапеции

m =1 ‘начальное значение счетчика

s = 0 ‘ начальное значение суммы

Do While m <= n

x1 = a

fx1 = x1 * x1

x2 = x1 + dx

fx2 = x2 * x2

ds = (fx1 * fx2)/ 2 *dx

s = s + ds

x1 = x2

m = m + 1

Loop

MsgBox (“S=”&s)

End Sub

Расчет факториала

Пример 1. Рассчитать n!.

Sub pr1()

Dim n, p, k

n = InputBox ("n=")

p = 1

For k = 1 to n

p = p * k

Next k

MsgBox (P)

End Sub

Пример 2.

Рассчитать сумму ряда

Sub pr2()

Dim n, s, p

n = InputBox ("n=")

s = 0 : p = 1

For k = 1 to n

p = p * k 'расчет факториала

Next k

End Sub

Пример 3.

Рассчитать сумму ряда. Расчет выполнять пока модуль члена ряда меньше Е.

Sub pr3()

Dim n, s, p

n = InputBox ("n=")

s = 0 : p = 1: k = 1

Do While x ^ k / p <= E

S = S + x ^ k / p

k = k + 1

p = k * p 'расчет факториала

Loop

End Sub

1