Выпуск 5 - Российский государственный профессионально ...

Next i
'Расставляем корабли "вручную"
'4-секционный
поле(6) = 1
… (см. выше)
поле(9) = 1
For i = 6 To 9
тип(i) = 4
Next i
'3-секционные
поле(21) = 1
…
For i = 21 To 23
тип(i) = 3
Next i
поле(37) = 1
…
For i = 37 To 39
тип(i) = 3
Next i
'2-секционные
поле(3) = 1
…
тип(3) = 2
тип(4) = 2
тип(12) = 2
тип(13) = 2
тип(17) = 2
тип(18) = 2
'Односекционные
поле(15) = 1
…
тип(15) = 1
тип(27) = 1
тип(32) = 1
тип(34) = 1
'Обнуляем переменную число_потоп
число_потоп = 0
'Выводим сообщение
MsgBox ("Корабли расставлены - можете
начинать")
End Sub
Так как массивы и величина число_потоп используются
в обоих макросах, их следует описать
как глобальные — в верхней части модуля кода, до
всех макросов (рис. 4).
Рис. 4
Запись Option Explicit в начале модуля предусматривает,
что все используемые переменные
должны быть предварительно объявлены (описаны).
Это уменьшает вероятность ошибок.
Теперь можно обсудить выбор расположения
кораблей не нами, а компьютером. Это можно сделать,
используя случайные числа. Напомним, что
для получения случайного целого числа n, значения
которого лежат в диапазоне от А до В включительно,
используется формула:
n = А + int(rnd * (B – A + 1)).
Итак, начнем с выбора положения 4-секционного
корабля:
'Выбираем случайный номер от 1 до 37
номер = 1 + Int(Rnd * 37)
'Записываем в соответствующий элемент
'и в 3 следующих элемента:
'в массиве поле — значение 1,
'в массиве тип — значение 4
For i = номер To номер + 3
поле(i) = 1
тип(i) = 4
Next i
Для 3-секционных кораблей следует найти такую
клетку, чтобы:
1) справа от нее было еще 3 свободных клетки
(две — для остальных секций и как минимум
одна клетка должна быть между ними и соседним
кораблем);
2) слева от нее была свободная клетка (чтобы данный
корабль не “касался” расположенного левее).
Так как при первом случайном выборе эти условия
могут не соблюдаться, следует применить оператор
цикла с постусловием:
Do
номер = 2 + Int(Rnd * 36)
Loop Until поле(номер) = 0
And поле(номер + 1) = 0
And поле(номер + 2) = 0
And поле(номер + 3) = 0
And поле(номер - 1) = 0
После нахождения подходящих клеток должны
также быть заполнены соответствующие элементы
массивов поле и тип:
For i = номер To номер + 2
поле(i) = 1
тип(i) = 3
Next i
Указанные действия должны выполняться дважды
(для двух 3-секционных кораблей).
Для 2-секционных и односекционных кораблей
выбор проводится аналогично:
'2-секционные
For j = 1 To 3 'Три корабля
Do
номер = 2 + Int(Rnd * 37)
Loop Until поле(номер) = 0
And поле(номер + 1) = 0
And поле(номер + 2) = 0
And поле(номер - 1) = 0
поле(номер) = 1
поле(номер + 1) = 1
тип(номер) = 2
тип(номер + 1) = 2
Next j
'Односекционные
61
май 2012 / ИНФОРМАТИКА