50 lines
641 B
Text
50 lines
641 B
Text
numfmt 8 0
|
|
func calc_sqrt .
|
|
n = 100
|
|
sum = n
|
|
while n >= 1
|
|
a = 1
|
|
if n > 1
|
|
a = 2
|
|
.
|
|
b = 1
|
|
sum = a + b / sum
|
|
n -= 1
|
|
.
|
|
return sum
|
|
.
|
|
func calc_e .
|
|
n = 100
|
|
sum = n
|
|
while n >= 1
|
|
a = 2
|
|
if n > 1
|
|
a = n - 1
|
|
.
|
|
b = 1
|
|
if n > 1
|
|
b = n - 1
|
|
.
|
|
sum = a + b / sum
|
|
n -= 1
|
|
.
|
|
return sum
|
|
.
|
|
func calc_pi .
|
|
n = 100
|
|
sum = n
|
|
while n >= 1
|
|
a = 3
|
|
if n > 1
|
|
a = 6
|
|
.
|
|
b = 2 * n - 1
|
|
b *= b
|
|
sum = a + b / sum
|
|
n -= 1
|
|
.
|
|
return sum
|
|
.
|
|
print calc_sqrt
|
|
print calc_e
|
|
print calc_pi
|