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

В МИР ИНФОРМАТИКИ № 176
60
май 2012 / ИНФОРМАТИКА
а потом также проверить, не потоплен
ли корабль в целом.
Для этого следует рассмотреть 4 типа
кораблей
(см. выше)
все
если в ней записано 2
то
это повторный выстрел в эту клетку
все
3. Проверка игры на предмет ее окончания. Ясно,
что игра закончится, когда будут потоплены все 10
кораблей компьютера. Поэтому следует использовать
для подсчета некоторую величину (пусть ее имя
число_потоп), значение которой в случае потопления
того или иного корабля надо увеличивать на 1.
4. Вывод сообщения, соответствующего введенному
номеру клетки. Это сообщение следует формировать
на этапах 2 и 3 в виде величины с именем
сообщение строкового типа. Можно поступить следующим
образом:
— если клетка с номером ход пустая
(поле(ход) = 0):
сообщение = "Мимо!"
— если в клетке с номером ход находится секция
“раненого” или уже потопленного корабля
(поле(ход) = 2):
сообщение = "Вам что, снарядов
не жалко?"
— если в клетке находится “живая” секция корабля
(поле(ход) = 1), то
1) сначала можно принять:
сообщение = "Ранил!"
2) если при последующей проверке выяснится,
что корабль, которому принадлежит данная клетка,
потоплен, изменить значение переменной сообщение:
сообщение = "Убил!"
3) если выяснится, что игра закончилась (число_
потоп = 10), то имеющееся значение величины сообщение
(оно равно "Убил!") следует дополнить:
сообщение = сообщение + ".
Игра закончена"
Весь макрос, связанный с кнопкой с надписью
“Подтвердить ход”, имеет вид:
Sub Кнопка_Подтверждение()
Dim ход As Integer, сообщение As String
'Считываем введенный номер клетки
ход = Range("E5").Value
Select Case поле(ход)
Case 1
поле(ход) = 2
сообщение = "Ранил!"
'Проверяем, не убил ли совсем
'Рассматриваем 4 типа кораблей
Select Case тип(ход)
Case 1
If поле(ход - 1) = 0
And поле(ход + 1) = 0 Then
сообщение = "Убил!"
число_потоп = число_потоп + 1
End If
Case 2
If поле(ход - 1) = 2
Or поле(ход + 1) = 2 Then
сообщение = "Убил!"
число_потоп = число_потоп + 1
End If
Case 3
If поле(ход - 2) = 2
And поле(ход - 1) = 2
Or поле(ход - 1) = 2 And
поле(ход + 1) = 2
Or поле(ход + 1) = 2
And поле(ход + 2) = 2 Then
сообщение = "Убил!"
число_потоп = число_потоп + 1
End If
Case 4
If поле(ход - 3) = 2
And поле(ход - 2) = 2
And поле(ход - 1) = 2
Or поле(ход - 2) = 2
And поле(ход - 1) = 2
And поле(ход + 1) = 2
Or поле(ход - 1) = 2
And поле(ход + 1) = 2
And поле(ход + 2) = 2
Or поле(ход + 1) = 2
And поле(ход + 2) = 2
And поле(ход + 3) = 2 Then
сообщение = "Убил!"
число_потоп = число_потоп + 1
End If
End Select 'Конец проверки
'по типам кораблей
Case 0
сообщение = "Мимо!"
Case 2 'Повторный выстрел
'в ту же клетку
сообщение = "Вам что, снарядов
не жалко?"
End Select 'Конец проверки
'по значению в клетке
If число_потоп = 10 Then
сообщение = сообщение + ".
Игра закончена"
End If
'Выводим сообщение
MsgBox(сообщение)
End Sub
Макрос, связанный с кнопкой с надписью “Новая
игра”, сначала (при отладке) оформляется так:
Sub Кнопка_НоваяИгра()
Dim i As Integer
'Заполняем массив поле нулями
For i = 1 To 40
поле(i) = 0