Факториал

[seredkin]

Дано действительное число х: e^x=1+(x/1!)+(x^2/2!)+(x^3/3!)+...+(x^n/n!)+... .Нужное приближение считается полученным, если вычисленная сумма нескольких первых слагаемых и очередное слагаемое оказались по модулю меньше данного положительного числа ε = 0,0001.
Помогите пожалуйста, это последнее задание в курсовой, а без него не принимают.

[doober]

Эта функция вам поможет,дальше сами

Function Fact(X As Double, N As Double) As Double
Dim M As Double
Dim intFact As Double
intFact = 1
For M = 1 To N
   intFact = intFact * M
Next
Fact = (X ^ N) / intFact
End Function

[seredkin]

Спасибо большое, но я все равно не могу понять как дальше делать(
Подскажите как дальше написать код

[doober]

В имени процедуры все сказано

Function Fact(X As Double, N As Double) As Double
Dim M As Double
Dim intFact As Double
intFact = 1
For M = 1 To N
   intFact = intFact * M
Next
Fact = (X ^ N) / intFact
End Function



Sub Student_uchi_Matchast()
Dim eps As Double
Dim i As Double
Dim suumRez As Double

suumRez = 1
Dim suumPr As Double, X As Double
X = 1
i = 3
eps = 0.0001
Do
suumRez = suumRez + Fact(X, i - 2)
suumPr = Fact(X, i - 2) + Fact(X, i - 1) + Fact(X, i)
i = i + 1
Loop While Abs(suumPr) > eps
End Sub

[seredkin]

спасибо, буду учить)