ab.com コミュニティ

#N88BASIC
dim A As Double
dim B As Double
dim C As Double
dim Pi As Double

Pi=3
C=3
*B
B=6
A=1
*A
B=B*A
B=B/(A+1)
A=A+2
if A<>C then goto *A
B=B/A
B=B/(2^A)
C=C+2
Pi=Pi+B
Print Pi
goto *B

公開されているソースだと結構Basic言語で書かれているプログラムって少ないと思いますよ？
double型一個に収まるような桁数のレベルなら今書きます。
[hide][code]
#N88BASIC
dim A As Double
dim B As Double
dim C As Double
dim Pi As Double

Pi=3
C=3
*B
B=6
A=1
*A
B=B*A
B=B/(A+1)
A=A+2
if A<>C then goto *A
B=B/A
B=B/(2^A)
C=C+2
Pi=Pi+B
Print Pi
goto *B
[/code][/hide]

もし多倍長計算（桁数を多くするやり方）で算出するならスレ「多倍長計算」の方で一緒に話しましょう。

自分で考えたりしましたか？
Googleなどで検索をしてみましたか？
その程度のことなら出てきますよ

円周率の計算ソフトの作り方を教えてください。