by konisi » 2006年2月15日(水) 23:23
公開されているソースだと結構Basic言語で書かれているプログラムって少ないと思いますよ?
double型一個に収まるような桁数のレベルなら今書きます。
[ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]コード: 全て選択
#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]
もし多倍長計算(桁数を多くするやり方)で算出するならスレ「多倍長計算」の方で一緒に話しましょう。