- 518 名前: カダヤシ(静岡県) mailto:sage [2010/06/19(土) 11:10:47.04 ID:GCyTJ2Wb]
- >>512
ちなみに円周率求めるVBSのサンプルコード 下のをメモ帳にコピペして拡張子.vbsにして実行 a = 1 b = sqr(2) / 2 t = 0.25 p = 1 MsgBox "円周率の計算を始めます" For i = 0 To 2 x = (a + b) / 2 y = sqr(a * b) t = t - p * (a - x) * (a - x) p = 2 * p a = x b = y Next pie = (a + b) * (a + b) / (4 * t) MsgBox pie
|
![](http://yomi.mobi/qr.gif)
|