26 FreeBASIC - Расстановка ферзей

Часто встречалась задача о расстановке ферзей - на шахматной доске нужно расставить 8 ферзей так чтобы они не били друг друга. А решать её не доводилось, всё время она ускользала из рук, не то что бы я её считал сложной, а просто не доводилось. Хоть она и думаю сложновата для начинающих. Здесь я пытался решить её как новичок)) Решить не получилось(( придется лепить костыли чтобы она всё-таки решилась.

Но учиться можно на любом примере, а порой и нужно. И всегда найдя одно решение - нужно искать решение получше, пооригинальней, покороче, побыстрее... нет предела совершенству.

Первое что пришло в голову - ставить случайно ферзя на поле которое не под боем других ферзей.

Значит нам нужна функция(упс...подпрограмма) которая после установки ферзя отмечает поля которые находятся "под боем".

объявляем массив-шахматную доску
dim shared a(1 to 8,1 to 8) as integer
0-пустая клетка
1-поле "под боем"
2-сам ферзь

теперь пишем подпрограмму set(x,y) в которую передаются координаты клетки куда устанавливается очередной ферзь.

sub set(byval x as integer, byval y as integer)
    dim i as integer
    for i=-7 to 7
        
        if x+i>0 and x+i<9 and y+i>0 and y+i<9 then if a(x+i,y+i)=0 then a(x+i,y+i)=1
        if x+i>0 and x+i<9 and y-i>0 and y-i<9 then if a(x+i,y-i)=0 then a(x+i,y-i)=1
        
        if x+i>0 and x+i<9 then a(x+i,y)=1
        if y+i>0 and y+i<9 then a(x,y+i)=1
    next i
    a(x,y)=2
end sub

Открываем цикл от -7 до 7, это границы возможного смещения относительно текущего положения ферзя.

Отмечаем поля "под боем" на главной диагонали - условие с a(x+i,y+i) и на побочной - условие с a(x+i,y-i)

и также отмечаем вертикальную и горизонтальную линии "под боем"

Это заполнение можно было организовать по другому - вне этого цикла и без условий.
после цикла делаем ещё один:

for i=1 to 8
    a(i,y)=1:a(x,i)=1
next i

Заполнение главной и побочной диагоналей боя ферзя можно так же сделать без проверки условий - весь фокус в вычислении границ "от" и "до" в зависимости от x и y.

А что лучше - четыре цикла без условий? или один но с кучей условий... здесь уж на вкус и цвет...

Теперь перейдём к основной программе

Ферзей 8 - открываем цикл от 1 до 8
Далее цикл по условию-выбираем случайную клетку и если она пустая запускаем к ней set(x,y)

ВСЁ!!!

После каждой расстановки ферзя выведем наш массив на экран
"." - пустая клетка
"X" - клетка "под боем"
"X" - красным изображён ферзь

... и как оказалось не всё
после 7го ферзя программа не может найти место для 8го - всё клетки заняты(под ферзём или "под боем")

Это проблема и её будем решать в следующий раз - будем лепить к нашей программе костыли))