Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 

Страницы: 1
Поиск
Задача о 8 ферзях, нужна помощь для модулирования обработки массива
Автор: Все_просто. День добрый, форумчане Sub Prov(a, b, ParamArray tabl()) 'выполняет проверку 'Dim jLeft, jRight, i, j As Integer 'ReDim Tabl(1 To 8, 1 To 8) As Boolean For i = a To 8 For j = 1 To 8 tabl(a, j) = False 'закрашиваем горизонталь Next tabl(i, b) = False 'закрашиваем вертикаль Next jLeft = b jRight = b For i = a + 1 To 8 'закрашивание диагоналей начинаем со следующей строки jLeft = jLeft - 1 jRight = jRight + 1 If jLeft > 0 Then...
Изменен: 10 Окт 2013
Читать сообщение на форуме или сайте.
Страницы: 1
Наверх