モンテカルロ法によるπ計算 for プチコンmkII
注意：実際のリストには、半角カタカナを含んでいます。
半角カタカナは機種依存文字のため、本サイトでは、カタカナ・濁点・半濁点は・句読点全て全角に変換しています。
リスト
BGCLR 0:BGCLR 1
CLS
GLINE 100,150,200,150,15
GLINE 100,150,100,50,15
GCIRCLE 100,150,100,247,0,90
INPUT "ケイサンスル カイスウハ?";N
IF N==0 THEN N=100000
K=0
FOR I=1 TO N
X=RND(100000)/100000
Y=RND(100000)/100000
IF X*X+Y*Y<=1 THEN GOTO @IN ELSE @OUT
@IN
K=K+1
COL=3
GOTO @POINT
@OUT
COL=247
@POINT
GPSET 100+100*X,150-100*Y,COL
NEXT
PRINT "PI =";K/N*4
PRINT "コ゛サ=";PI()-K/N*4
BEEP 3
'↓半角カタカナで「ケイサンガ オワリマシタ。」と表示しています。
PRINT "ケイサンカ゛ オワリマシタ。"
WAIT 300
更新履歴
- 初公開
- 本ページにおけるコードの紹介で、半角カタカナから全角カタカナへ変更(コード上の変更なし)
- サイドメニューおよび本文のデザインを変更(コード上の変更なし)
-
- BIGLOBE館に移転
- プチコンフォントに対応
- 関連プログラムを追加