# правила Варнсдорфа

правила Варнсдорфа выбора очередного хода (предложено более 150 лет тому назад). Его суть - при обходе шахматной доски коня следует ставить на поле, из которого он может сделать минимальное количество перемещений на еще не занятые поля, если таких полей несколько, можно выбирать любое из них. В этом случае в первую очередь занимаются угловые поля и количество “возвратов” значительно уменьшается. Вариант процедуры Solve для этого случая. procedure Solve(x,y,l:integer); var W:array[1..8] of integer; xn,yn,i,j,m:integer; begin A[x,y]:=l; if (l&lt;N*N) then begin for i:=1 to 8 do begin{формирование массива W} W[i]:=0;xn:=x+dx[i];yn:=y+dy[i]; if (A[xn,yn]=0) the begin for j:=1 to 8 do if (A[xn+dx[j],yn+dy[j]]=0) the Inc(W[i]); end else W[i]:=-1; end; i:=1; while (i&lt;=8) do begin m:=1;{ищем клетку, из которой можно сделать наименьшее число перемещений} for j:=2 to 8 do if W[j]&lt;W[m] then m:=j; if (W[m]&gt;=0) and (W[m]&lt;maxint)

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа
Изготовление оригинальных новогодних упаковок из текстиля для сладких подарков, оптом и в розницу.