第４講　残確定法によるさらなる高速化
第５話　プログラム解説その２

今回は下の記述の説明です。
If i = 0 And j = n - 2 Then
　　wa = 0
　　For k = 0 To n - 3
　　　　wa = wa + mah(i, k)
　　Next
　　wa = wa + mah(i, n - 1)
　　hhh = 0
　　sa = Int(n * (n * n + 1) / 2) - wa
　　If sa < 1 Or sa > n * n Then GoTo owari1
　　If tyouhukuhantei(sa - 1) = 1 Then GoTo owari1
　　mah(i, j) = sa
　　tyouhukuhantei(sa - 1) = 1
　　hhh = 1
　　sakusei (g + 1)
　　GoTo owari1
End If
If i = n - 2 And j = 0 Then
　　wa = 0
　　For k = 0 To n - 3
　　　　wa = wa + mah(k, j)
　　Next
　　wa = wa + mah(n - 1, j)
　　hhh = 0
　　sa = Int(n * (n * n + 1) / 2) - wa
　　If sa < 1 Or sa > n * n Then GoTo owari1
　　If tyouhukuhantei(sa - 1) = 1 Then GoTo owari1
　　mah(i, j) = sa
　　tyouhukuhantei(sa - 1) = 1
　　hhh = 1
　　sakusei (g + 1)
　　GoTo owari1
End If

今日はn = ５を例にとって説明しましょう。
i = 0 And j = n - 2は

ピンクの場所を表しています。
　　wa = 0
　　For k = 0 To n - 3
　　　　wa = wa + mah(i, k)
　　Next
　　wa = wa + mah(i, n - 1)
　　hhh = 0
　　sa = Int(n * (n * n + 1) / 2) - wa
の計算でsa＝38になりますが、当然これは
　　If sa < 1 Or sa > n * n Then GoTo owari1
をクリアできず、前の世界に戻ります。
何回か同様なことを繰り返し

のときsa＝２４となり、初めて条件をクリアし

の世界に行きます。
後半も同様ですので、解説を省略します。

第４講第４話へ　第４講第６話へ

VB講義応用編トップへ

VB講義トップへ