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

В МИР ИНФОРМАТИКИ № 176
GAMES.EXE
Кто сам пилит свои дрова, тот согревается
дважды.
Французская поговорка
Кто сам программирует свои компьютерные
игры, тот наслаждается дважды.
Из книги Ж.Арсак
“Программирование игр
и головоломок”. М.: Наука, 1985
Игра “Морской бой”
в среде Microsoft Excel
Д.М. Златопольский, Москва
В данной статье мы опишем методику моделирования
игры “Морской бой” средствами программы
Microsoft Excel 1 . Если вы не знакомы с языком программирования
VBA (Visual Basic for Application),
“встроенным” в эту программу, не пугайтесь — все
необходимые разъяснения будут даны.
Игра широко известна, поэтому правила приводить
не будем.
Рассмотрим простой, “одномерный” вариант —
игровое поле представим в виде полоски из 40 клеток,
на которой будут размещаться корабли — один
“4-секционный”, два “3-секционных”, три “2-секционных”
и четыре “односекционных” (естественно, что
сами корабли показываться не должны — см. рис. 1).
Играть будут компьютер и человек. Первый
“расставляет” корабли, второй должен их пора зить.
Соответствующий общий вид фрагмента листа
Microsoft Excel показан на рис. 2.
Играющий должен в ячейке Е5 указать номер
клетки, по которой он производит выстрел, после
чего щелкнуть на кнопке с надписью “Подтвердить
ход”. Кнопка с надписью “Новая игра” используется
для новой расстановки кораблей.
Тексты в ячейки А1 и А5 вводятся “вручную”, и
оформить их нужно так, как на рис. 2. Для заполнения
ячеек А3:AN3 можно использовать так называемое
“автозаполнение”. Вокруг ячейки Е5 и ячеек
А3:AN3 нужно сделать обрамление. Конечно, следует
изменить ширину столбцов.
Обо всем, что связано с кнопками, расскажем
ниже.
Ситуацию на игровом поле будем моделировать
с помощью массива с именем поле из 40 элементов.
Если в какой-то клетке поля стоит корабль (или его
часть), то в соответствующем элементе массива запишем
1; если этот корабль “ранен” или “убит” (потоплен)
— 2; если клетка пустая — 0.
Сначала, с целью отладки той части программы,
которая связана, так сказать, с логикой игры, корабли
за компьютер ☺ расставим вручную, например,
так:
'4-секционный
поле(6) = 1
поле(7) = 1
поле(8) = 1
поле(9) = 1
'3-секционные
поле(21) = 1
поле(22) = 1
поле(23) = 1
поле(37) = 1
поле(38) = 1
поле(39) = 1
'2-секционные
поле(3) = 1
поле(4) = 1
поле(12) = 1
поле(13) = 1
поле(17) = 1
поле(18) = 1
'Односекционные
поле(15) = 1
поле(27) = 1
поле(32) = 1
поле(34) = 1
Если значение, которое играющий указал в ячейке
Е5, обозначить ход, то условие, по которому можно
определить, что тот или иной корабль ранен,
следующее:
поле(ход) = 1
А вот факт “убийства” (потопления) корабля
зафиксировать несколько сложнее. Здесь целесообразно
каждой клетке с кораблем сопоста-
…
58
Рис. 1
май 2012 / ИНФОРМАТИКА
Рис. 2
1
Описанную методику можно применить и в электронной таблице OpenOffice.org Calc. Исключение в том, что в последней
русские имена процедур и имена величин в макросах следует заменить на латинские (pole, tip и т.д.).