Морской бой. Расстановка кораблей (6 стр)

Funtik
Рад, что помог.
Одно не пойму, в Fill():

if (gen_random(0, N - 1) < 0.5)

Работать то будет, но вероятность неравная. На сколько я понял, должно быть:

if (gen_random(0, 1) = 0)

Mikle
> if (gen_random(0, N - 1) < 0.5)
Каюсь, тут наугад ставил, т.к. не знал в каком диапазоне работает Rnd в VB.
К счастью все выводится правильно.

Funtik
> К счастью все выводится правильно
Только вероятность вертикальных и горизонтальных кораблей разная.
Funtik
> не знал в каком диапазоне работает Rnd в VB
float от 0 включительно до 1 не включительно.

Сергей Григорович
> Лучше код давайте!))
Морской бой[ГЕНЕРАТОР РАССТАНОВКИ]

К слову, местный форумчанин, и там не только расстановка:
http://mihanik.500mb.net/Battleship/Battleship.html

GDR
> там не только расстановка
где там код???

походу там ваще ничего нету)

Кода там нет. Но там есть целая игра, которую можно купить и перепродать! :) Григоровичу же не код нужен. :)