• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javaandroidc++linuxc#objective-ccocoa誰得qtrubypythonbathyscaphephpgamewindowsguic翻訳omegattwitterframeworktestbtronarduinovb.net計画中(planning stage)directxpreviewerゲームエンジンdom

πの計算を行う。


コミットメタ情報

リビジョン5 (tree)
日時2014-09-12 21:26:35
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- CALCPI/CALCPI/LongNum.vb (revision 4)
+++ CALCPI/CALCPI/LongNum.vb (revision 5)
@@ -4,7 +4,7 @@
44 ''' 算出桁数
55 ''' </summary>
66 ''' <remarks></remarks>
7- Public Const L As Integer = 1000
7+ Public Const L As Integer = 100
88
99 ''' <summary>
1010 ''' 配列サイズ
@@ -41,11 +41,14 @@
4141
4242 Public Function displayString() As String
4343 Dim sb As New System.Text.StringBuilder
44- sb.Append(array(0))
44+ sb.AppendFormat(" {0}", array(0))
4545 sb.Append(".")
4646 For i As Integer = 1 To array.Length - 1
47- sb.Append(array(i))
47+ sb.AppendFormat("{0:00000000}", array(i))
4848 sb.Append(" ")
49+ If (i + 1) Mod 8 = 0 Then
50+ sb.AppendLine()
51+ End If
4952 Next
5053 Return sb.ToString
5154 End Function