IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> морской бой (растановка кораблей), проблема
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 52
Пол: Мужской
Реальное имя: Стас

Репутация: -  -1  +


помагите, подскажите как сделать расстановку кораблей!? + чтоб компьютер автоматически корабли раставлял + чтоб все ставилось правельНО! зарание большое спасибо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 52
Пол: Мужской
Реальное имя: Стас

Репутация: -  -1  +


вот что уже есть!) не по делу, но все равно!


Прикрепленные файлы
Прикрепленный файл  SEA_WAR1.PAS ( 6.09 килобайт ) Кол-во скачиваний: 277
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 930
Пол: Мужской

Репутация: -  11  +


У тебя управление с клавиатуры не пашет. Начиная с самой первой менюшки. Обычно, в таких случаях я использую CASE и GOTO. Но за гото тебя повесят smile.gif А эмуляция этого оператора при помощи двадцати других обычно долгая и кривая.
Сначала научи прогу выставлять корабли параллельно, в одном направлении. Выбор координат компьютером делай случайным образом при помощи Random Только вначале проги один раз вставь Randomize для инициализации генератора случайных чисел. После того как выбрал координату проверь, нет ли уже на клетке или на соседних корабля. Если есть, внеси клетку в "чёрный список" чтобы больше не проверять. После проверяй другие клетки корабля на отсутствие противопоказаний. Если таковые обнаружатся внеси координату первой клетки во временный чёрный список нужный для того, чтобы не ставить корабль опять на эту клетку.
Да, кстати, игровое поле сделай в виде массива BYTE. Все логические операции с координатами только с цифрами. Буквы только для ввода\вывода пользователя. Соответственно время от времени координаты придётся конвертировать - буквы в цифры и наоборот. Это опять проще делать на CASE
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 23.09.2017 9:11
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"