# end; Procedure

end; Procedure Solve(i:integer); var j:integer;f:boolean; Y:Tarray; begin if i&lt;=N then begin for j:=1 to N do if D_hod(i,j) then begin Hod(i,j); Solve(i+1); O_hod(i,j); end; end else begin f:=true; for j:=0 to 7 do begin Y:=X; if j and 1 =0 then Sim1(Y); if j and 2 =0 then Sim2(Y); if j and 4 =0 then Sim3(Y); if Cmp(Y,X) then f:=false; end; if f then begin Inc(S);{счетчик числа решений, глобальная переменная} Print;{вывод решения} end; end; end; 2.1.3. Задача о шахматном коне Существуют способы обойти шахматным конем доску, побывав на каждом поле по одному разу. Составить программу подсчета числа способов обхода. Разбор задачи начинается с оценки числа 64! - таково общее число способов разметки доски 8*8. Каждую разметку следует оценивать на предмет того, является ли она способом обхода конем доски(решение в “лоб”). Затем оцениваем порядок сокращения перебора

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа