作业帮 > 数学 > 作业

根据公式e=1+1/1!+1/2!+1/3!+...,求e的近似值,精度要求为10-6.

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/09 09:51:28
根据公式e=1+1/1!+1/2!+1/3!+...,求e的近似值,精度要求为10-6.
vc++
Option Explicit
Private Sub Command1_Click()
Dim e0 As Double,e1 As Double,k As Integer
e0 = 0:e1 = 1:k = 1
While e1 - e0 > 0.000001
e0 = e1
e1 = e1 + GetResult(k)
k = k + 1
Wend
Print e1
End Sub
Function GetResult(n As Integer) As Double
Dim i As Integer,s As Double
s = 1
For i = 1 To n
s = s * i
Next
GetResult = CDbl(1 / s)
End Function