На шахматной доске стоят несколько ладей. Докажите, что их можно раскрасить тремя цветами, чтобы одноцветные ладьи не стояли под боем друг друга. Хватит ли для этого двух цветов? скажите
k_pos = 0 mini = LBound(C, 1) minj = LBound(C, 2) For i = LBound(C, 1) To UBound(C, 1) For j = LBound(C, 2) To UBound(C, 2) C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then mini = i minj = j end if Next Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos End Sub
Call Zadanie()
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
На шахматной доске стоят несколько ладей. Докажите, что их можно раскрасить тремя цветами, чтобы одноцветные ладьи не стояли под боем друг друга. Хватит ли для этого двух цветов? скажите
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()