« 最終投稿 | トップページ | 昔お世話になったサイトたち »

2008年6月 1日 (日)

情報課題

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分

コメントを書く



(ウェブ上には掲載しません)




« 最終投稿 | トップページ | 昔お世話になったサイトたち »