情報課題
linuxでキャビネットからのが開けない(文字化けする)といけないので、一応、ここにのっけとく。
ブログってこんな使い方もできるんだね。
便利。
でも、課題をネットでオーーープン!!って、あんまり気が進まないけど、まぁ、誰も見ないだろうし、見ても全く問題ない内容だし、課題ったって今回のはそんなに課題じゃないし、今回はいいや。
パスワードかけられないかな?
あっ、キャビネットからのがちゃんと見られれば、解決か。
以下の内容を私の許可無く使用、コピー、その他著作権を侵害することをしてはいけません。
~追記6/5~
linuxからみれたので削除しました。
| 固定リンク


コメント
rmは「remove」の略dasoudesu.
投稿: | 2008年6月 1日 (日) 09時14分
モンテカルロ法による円周率を求めるプログラム
VBS
情報はなぜビットなのか、より。
Wowな考え方!
R = 500
H = 0
N = CLng(InputBox("矢の総数は?"))
Randomize Timer
For i = 1 To N
x = CInt(Rnd * 1000)
y = CInt(Rnd * 1000)
If (x - R)^2 + (y - R)^2 <= R^2 Then
H = H + 1
End If
Next
PAI = 4 * CDbl(H) / CDbl(N)
MsgBox "円周率 = " & CStr(PAI)
投稿: | 2008年6月 2日 (月) 01時20分