/***********************************************************
e.c -- 自然対数の底
***********************************************************/

Function ee() As Double
Dim n As Long
Dim e, a, prev

e = 0 : a = 1 : n = 1
Do
prev = e : e = e + a : a = a / n : n=n+1
Loop while (e <> prev)
ee = e
End Function

#N88BASIC

Print ee()

タグ:

+ タグ編集
  • タグ:

このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー利用規約 が適用されます。

最終更新:2010年06月23日 22:54