14/01/25 12:21:21.49 R97SIz7p
Const MAX_N As Double = 10000.0
Dim a As Double
Dim b As Double
Dim c As Double
c = 0.0
For a = 1.0 To MAX_N
For b = 1.0 To MAX_N
c += 1.0 / b * Math.Sin(b * Math.PI / a)
Next
Next
vbですけど
14/01/25 12:21:21.49 R97SIz7p
Const MAX_N As Double = 10000.0
Dim a As Double
Dim b As Double
Dim c As Double
c = 0.0
For a = 1.0 To MAX_N
For b = 1.0 To MAX_N
c += 1.0 / b * Math.Sin(b * Math.PI / a)
Next
Next
vbですけど