, , . : , . (), : , - - ; - , - . . . : . , , .. ,
, .
. , , 2- :
, , , , ..: , , :
-2 | -8 | -12 |
, .
.
.
: . . ,
.
, . I :
:
- .
- .
. : .
Function f(x). f = Sqr(2 * x ^ 2 + 1). 0End Function. Sub Integral()
a = Cells(1, 2). b = Cells(2, 2). n = Cells(3, 2). h = (b - a) / n. x = a. S = 0
1 s = s + f(x) * h. x = x + h. If x < b Then GoTo 1. Cells(5, 2) = s.End Sub
.
f(x) 1- .
:
. , :
. (), :
. , , ,
:
:
, :
|
|
1 s = s + 0.5 * (f(x) + f(x + h)) * h
x = x + h