BBS: Inland Empire Archive
Date: 05-24-92 (11:09) Number: 191
From: ROB FLOR Refer#: NONE
To: BILL WHITE Recvd: NO
Subj: Programming Pi Conf: (2) Quik_Bas
BW>RF> I just saw this post by accident, don't know why I didn't get
>RF>it last week. Did you see my subsequent post using integers and
>RF>postponing the division until the end?
BW> No, didn't see it. I find a lot goes unseen - I'll
>find others responding to messages I never the original
>of - the system isn't perfect. And, of course, I'll have
>to admit that sometimes I zip thru pretty quickly,
>especially when there's been a 2 day dry period followed
>by 250 messages!
You are very lucky. We get 40 - 50 a day this side of the black hole.
Here it is.
DEFINT A-Z :DEFLNG A,B,C,D
A = 1: B = 1: C = 1: Sign = 0
N = 25
FOR D = 3 TO N STEP 2
Sign = NOT Sign
IF Sign THEN C = -B ELSE C = B
B = B * D
A = A * D
A = A + C
PRINT "PI="; 4# * (A / B)
PRINT "pi to "; N; " calculations ="; 4# * (A / B)
* OLX 2.2 * * IMAGE OF ELVIS IN DUST BUNNY * pine cone diet page 8
--- WM v2.01/91-0156
* Origin: BEAR HEAVEN BBS (914) 677-6948 MILLBROOK NY (1:272/53)