Dim cn, x(25), n As Integer
Sub Main() '私は社長だ。
Console.WriteLine ("これはすべてのn次方陣を求めるソフトです。")
Console.WriteLine ("何次の方陣を発生させるのかをnに入力し")
Console.WriteLine ("エンターするとn次方陣がすべて生成されます。")
Console.Write ("n=")
n = Console.ReadLine()
cn = 0
f (0)
Console.WriteLine("生成された{0:d}次方陣は{1:d}個です。", n, cn)
End Sub
Sub f(g As Integer)
Dim i, j, k, h, hh, w As Integer
For i = 0 To n * n - 1
If g = 0 Then x(g) = i + 1
h = 1
If g > 0 Then
For j = 0 To g - 1
If x(j) = i + 1 Then
h = 0
Exit For
End If
Next
If h = 1 Then x(g) = i + 1
End If
If h = 1 Then
If g + 1 < n * n Then
f (g + 1)
Else
hh = 1
For j = 0 To n - 1
w = 0
For k = 0 To n - 1
w += x(n * j + k)
Next
If w <> Int(n * (n * n + 1) / 2) Then
hh = 0
Exit For
End If
Next
If hh = 1 Then
For j = 0 To n - 1
w = 0
For k = 0 To n - 1
w += x(n * k + j)
Next
If w <> Int(n * (n * n + 1) / 2) Then
hh = 0
Exit For
End If
Next
End If
If hh = 1 Then
w = 0
For j = 0 To n - 1
w += x(n * j + n - 1 - j)
Next
If w <> Int(n * (n * n + 1) / 2) Then
hh = 0
Exit For
End If
End If
If hh = 1 Then
w = 0
For j = 0 To n - 1
w += x(n * j + j)
Next
If w <> Int(n * (n * n + 1) / 2) Then
hh = 0
Exit For
End If
End If
If hh = 1 Then
cn += 1
For j = 0 To n - 1
For k = 0 To n - 1
Console.Write("{0:d} ", x(n * j + k))
Next
Console.WriteLine()
Next
Console.WriteLine()
End If
End If
End If
Next
End Sub
Dim cn, x(25), n As Integer
Sub Main() '私は社長だ。
Console.WriteLine("これはすべてのn次方陣を求めるソフトです。")
Console.WriteLine("何次の方陣を発生させるのかをnに入力し")
Console.WriteLine("エンターするとn次方陣がすべて生成されます。")
Console.Write("n=")
n = Console.ReadLine()
cn = 0
Dim hj, ow As Object
hj = Timer
f(0)
ow = Timer
Console.WriteLine("魔方陣生成にかかった時間は{0:f6}秒です。", ow - hj)
Console.WriteLine("生成された{0:d}次方陣は{1:d}個です。", n, cn)
End Sub
以下は同じ
このコードがわかりにくい最大の理由は、
グローバル配列が
Dim cn, x(25), n As Integer
と１元配列になっているということです。
皆さん、これを２次元配列
Dim cn, mah(5, 5), n As Integer
にしてソフトを作り直して下さい。
x座標とy座標を導入しますので、
いままで魔方陣の各値を入力する配列名をxとしてきましたが、
以降はmahに変更します。
