Задача о ходе коня

[McFrey]

Написал программу( знаю что поступил не правильно, ведь сначала должна схема алгоритма рисоваться а затем программа)...и теперь немогу разобраться со схемой алгоритма...изобразите?

program ChessHorse;

const   Dim = 5;
        PathLen = Dim*Dim;

var     Field :Array[1..Dim,1..Dim] of integer; { h[x, y]=i => **на клетку (x,y) конь попал после i-го хода * }
        TraceXY: array[1..PathLen,1..2] of integer;
        n :integer; { текущая длина пути }
        x, y :integer;

function TryMove (i, j :integer) :Boolean;
begin
  if n>PathLen then TryMove := true { путь найден }
  else
    begin
    TryMove := false;
    if (i>=1) AND (i<=Dim) AND (j>=1) AND (j<=Dim) AND (Field[i, j]=0) then
      begin
      Field[i, j] := n;
      TraceXY[n,1]:=i; TraceXY[n,2]:=j;
      n := n+1;
      if TryMove(i+1, j+2)=true then TryMove := true
       else if TryMove(i+1, j-2)=true then TryMove := true
        else if TryMove(i-1, j+2)=true then TryMove := true
         else if TryMove(i-1, j-2)=true then TryMove := true
          else if TryMove(i+2, j+1)=true then TryMove := true
           else if TryMove(i+2, j-1)=true then TryMove := true
            else if TryMove(i-2, j+1)=true then TryMove := true
             else if TryMove(i-2, j-1)=true then TryMove := true;
      Field[i, j] := 0;
      n := n-1;
      end;
   end;
end;

Begin
  for x:=1 to Dim do
    for y:=1 to Dim do
      Field[x, y]:=0;
  WriteLn ('Шахматное поле ', Dim, 'x', Dim);
  WriteLn ('Введите координаты начального положения коня');
  Write ('X='); ReadLn (x);
  Write ('Y='); ReadLn (y);
  if (x<1) OR (x>Dim) OR (y<1) OR (y>Dim) then
    WriteLn ('Неверный ввод.')
  else
    begin
    n := 1;
    WriteLn ('Поиск путей длины ', PathLen, ' ...');
    case TryMove (x, y) of
      true: begin
            WriteLn ('Найденый путь');
            for x:=1 to PathLen do
               write(TraceXY[x,1]:3);
            writeln;
            for x:=1 to PathLen do
               write(TraceXY[x,2]:3);
               writeln;
            end;
      false: WriteLn ('Нет путей для обхода');
      end;
    end;
end.

[McFrey]

Дамы и Господа.....выручайте

[Mad_Cat]

Дамы и Господа.....выручайте

Поиск по форуму FCEditor