26 lines
336 B
Plaintext
26 lines
336 B
Plaintext
double a, c, g, t, p
|
|
double apprpi
|
|
short i
|
|
|
|
// Initial values
|
|
a = 1
|
|
g = sqr(0.5)
|
|
p = 1
|
|
t = 0.25
|
|
|
|
//Iterate just 3 times
|
|
for i = 1 to 3
|
|
c = a
|
|
a = ( a + g ) / 2
|
|
g = sqr( c * g )
|
|
c -= a
|
|
t -= ( p * c^2 )
|
|
p *= 2
|
|
apprpi = (( a + g )^2) / ( t * 4 )
|
|
print "Iteration "i": ", apprpi
|
|
next
|
|
|
|
print "Actual value:",pi
|
|
|
|
handleevents
|