用“蒙特卡洛”法求π值

阅读文章

Area :《电脑报》1992年合订

Subj :用“蒙特卡洛”法求π值

From :四川省通江县中学高九四级六班张渝

Date :1992-10-02

10 INPUT “模拟次数”，CS
20 T=0
30 FOR I=1 TO CS
40 X=RND(1)*6:M=X+0.5:N=X-0.5
50 FOR J=1 TO 5 STEP 2
60 IF M>J AND N 70 NEXT J，I
80 PI=CS/T:PRINT "P1=";PI
90 END

返回信区 │ 返回信区列表 │ 返回总目录

F1Help ESC返回 PgUp上翻 PgDn下翻 ←上篇 →下篇 software-archive.tifan.la 关于