27 lines
283 B
Text
27 lines
283 B
Text
PROGRAM "progname"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
|
|
DOUBLE e1
|
|
DOUBLE e
|
|
DOUBLE n
|
|
|
|
n = 1
|
|
n1 = 1
|
|
e1 = 0
|
|
e = 1 / 1
|
|
|
|
DO WHILE e != e1
|
|
e1 = e
|
|
e = e + 1 / n
|
|
n1 = n1 + 1
|
|
n = n * n1
|
|
LOOP
|
|
|
|
PRINT "The value of e = "; e
|
|
|
|
END FUNCTION
|
|
END PROGRAM
|