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

В МИР ИНФОРМАТИКИ № 176
For j = 1 To 4 'Четыре корабля
Do
номер = 2 + Int(Rnd * 37)
Loop Until поле(номер) = 0
And поле(номер + 1) = 0
And поле(номер - 1) = 0
поле(номер) = 1
тип(номер) = 1
Next j
Напомним, что для получения различных последовательностей
случайных чисел следует использовать
процедуру Randomize с параметром Timer:
Randomize Timer
Задания для самостоятельной работы
1. Оформите лист электронной таблицы с необходимыми
макросами по описанной методике.
Предусмотрите также подсчет числа выстрелов и
вывод этого значения в одной из ячеек, например,
в ячейке L8 (а левее не выведете соответствующее
сообщение):
Range("L8").Value = k
— где k — общее число сделанных выстрелов.
Проведите чемпионат своего класса в разработанную
вами игру. Фамилию и имя ученика, показавшего
лучший результат (сделавшего наименьшее
число выстрелов), и сам результат пришлите в
редакцию.
2. Из приведенных фрагментов для случайного
выбора положения кораблей видно, что 3-, 2- и односекционные
корабли никогда не будут размещаться в
первой и последней клетках поля. И, хотя играющий
об этом знать не будет, все равно это нежелательно.
Использовать эти клетки можно, если описать массив
поле с дополнительными элементами:
Dim поле(0 To 41) As Integer
Разработайте вариант игры, в котором для выбора
используются формулы, обеспечивающие возможность
размещения кораблей в первой и последней
клетках.
3. Как правило, играющий в игру ведет учет клеток,
по которым он сделал выстрел. Тем не менее
для наглядности клетки поля с “ранеными” секциями
можно окрашивать, например, в зеленый цвет.
Для этого в случае “ранения” той или иной секции
следует предусмотреть в макросе заливку ячейки:
Range("A2").Cells(, ход).
Interior.ColorIndex = 4
Запись Range("A2").Cells(, ход) позволяет
обратиться к ячейке (клетке поля) с номером ход,
запись Interior.ColorIndex соответствует свойству
ячейки, определяющему цвет ее заливки, 4 —
код зеленого цвета.
Разработайте вариант игры, в котором происходит
окрашивание нужных клеток. При этом в
макросе, связанном с кнопкой с надписью “Новая
игра”, следует предусмотреть заливку всех клеток
поля белым цветом (код этого цвета — 0).
4. Разработайте вариант игры с квадратным
игровым полем размером 8 на 8 клеток.
Указания по выполнению
1. Принять, что корабли могут располагаться
вертикально и горизонтально, но не по диагонали,
и без “изломов”.
2. При размещении кораблей, кроме случайного
выбора места, должен проводиться также случайный
выбор ориентации корабля (вертикальная или
горизонтальная).
3. Для каждой секции кораблей следует запомнить
ориентацию данного корабля.
4. С учетом ориентации должна проводиться также
проверка на “потопление” корабля.
Разработанные варианты игры (можно не все)
присылайте в редакцию. Лучшие работы мы поощрим.
В одном из будущих выпусков “В мир информатики”
будет описана методика моделирования игры
“Морской бой” средствами программирования на
“самостоятельном” языке высокого уровня.
62
май 2012 / ИНФОРМАТИКА
В выпуске “В мир информатики” № 170 была опубликована статья “Логические и сдвиговые операции”.
В статье отмечалось, что в языке программирования Паскаль отсутствует возможность выполнения
циклических сдвигов. Ознакомившись со статьей, Измайлов Андрей, ученик лицея № 4 им. Героя
Советского Союза Г.Б. Злотина из г. Орла (учитель Чапкевич И.М.), разработал функции, с помощью
которых можно реализовывать такие сдвиги (вправо и влево). Редакция решила наградить
Андрея дипломом. Поздравляем!
ВНИМАНИЕ! КОНКУРС
Итоги конкурса № 91
Напомним, что необходимо было по заданным
словам, удалив в них одну букву и заменив другую,
получить термин (или фамилию ученого), связанный
с информатикой и ИКТ. Было предложено также
привести комментарии к найденным словам.
Конкурс проводился в два тура, а его итоги подводились
с учетом двух туров в целом.
Участниками конкурса являлись:
— Аветисян Мариам и Иванова Алена, Совхозная
средняя школа, Московская обл., Серебряно-Прудский
р-н, поселок Успенский, учитель Жарикова Е.Н.;
— Андрющенко Александр и Свистунов Николай,
Ставропольский край, Кочубеевский р-н,