Задача о восьми ферзях
2009-12-13 07:39 Александр
Задача о восьми ферзях
Private field(7, 7) As Integer
Private Function UnderAtack(ByVal x As Integer, ByVal y As Integer) As Boolean
For i = 0 To 7 ' горизонталь и вертикаль
If field(x, i) = 1 Or field(i, y) = 1 Then
UnderAtack = True
[...]