Пройти лабиринт по правилу правой руки. Опции

[DarkWishmaster]

Есть лабиринт, надо его пройти по правилу правой руки.
вот к примеру
7 9
1 1 1 1 1 1 1 1 1
1 0 0 1 0 0 0 0 1
1 0 1 0 0 1 0 1 1
1 0 0 0 1 0 0 0 1
1 0 1 0 1 0 1 0 1
1 0 0 0 0 0 1 0 1
1 2 1 1 1 1 1 3 1

1- блок
0 - пусто
2- вход
3- выход
Я знаю как должен вести себя робот, но проблема в том что не могу написать его поведение на Паскале, может вы поможете?
Тут надо помнить в какую сторону смотри робот что-бы можно было знать относительно него какая сторона есть - право а какая -лево
для этого я исп. процедуры:
например если робот смотрит вверх то он идет по x=-1, y=0

    procedure RotD;  //поворачивает направо
        begin
           if (x=0) and (y=1) then begin x:=1; y:=0; exit; end;
            if (x=0) and (y=-1) then begin x:=-1; y:=0; exit; end;
             if (x=-1) and (y=0) then begin x:=0; y:=1; exit; end;
              if (x=1) and (y=0) then begin x:=0; y:=-1; exit; end;
         end;
        procedure RotS; // поворачивает налево
        begin
           if (x=0) and (y=1) then begin x:=-1; y:=0; exit; end;
            if (x=0) and (y=-1) then begin x:=1; y:=0; exit; end;
             if (x=-1) and (y=0) then begin x:=0; y:=-1; exit; end;
              if (x=1) and (y=0) then begin x:=0; y:=1; exit; end;
         end; 

  procedure Move;
    begin
     i:=i+x;
     j:=j+y;
end;
 

Но тут проблема в том что например робот идёт направо, там тупик и направо тоже тупик он поворачивает налево и он должен придерживаться уже левой стены, это самое главное реализовать.

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

Сообщение отредактировано: DarkWishmaster - 27.03.2011 19:13

[DarkWishmaster]

Вообщем вот что получилось:

  Program Robot; Uses Crt;
 var a:array[1..100,1..100] of integer;
    i,j,n,m,x,y,flag:integer;  F:text; Q:boolean;
procedure Enter;
       begin
         for i:=1 to n do
          for j:=1 to m do
            if a[i,j]=2 then exit;
       end; {Enter}
    procedure Initiare;
          begin
          assign(F, 'C:\In.TXT');  reset(F);
          read(F, n); readln(F, m);
          for i:=1 to n do   begin
          for j:=1 to m do    begin
          read(F,a[i,j]);
          end;
        readln(F);
      end;
     close(F);
   end; {Initiare}
  procedure Print;
    var i,j:byte;
      begin
        for i:=1 to n do begin
          for j:=1 to m do begin
            write(a[i,j]); end;
             writeln;
              end; {Print} end;
        function Block(i,j:integer):boolean;  // смотрим если можно идти вперёд
           begin
             if (a[i,j]=1) or (i>n) or (j>m) then Block:=True
              else Block:=False;
            end;  (*BlocK*)
         procedure RotD;  // поворот направо
        begin
           if (x=0) and (y=1) then begin x:=1; y:=0; exit; end;
            if (x=0) and (y=-1) then begin x:=-1; y:=0; exit; end;
             if (x=-1) and (y=0) then begin x:=0; y:=1; exit; end;
              if (x=1) and (y=0) then begin x:=0; y:=-1; exit; end;
         end;
        procedure RotS; // поворот налево
        begin
           if (x=0) and (y=1) then begin x:=-1; y:=0; exit; end;
            if (x=0) and (y=-1) then begin x:=1; y:=0; exit; end;
             if (x=-1) and (y=0) then begin x:=0; y:=-1; exit; end;
              if (x=1) and (y=0) then begin x:=0; y:=1; exit; end;
         end;
     procedure Move(var i,j:integer); // шаг вперед
       begin
        i:=i+x;
         j:=j+y;
       end; {move}
     function Exit(i,j:integer):boolean; // проверка на выход
       begin
        if a[i+x,j+y]=3 then Exit:=True else Exit:=False;
      end;
 Begin ClrScr;
   Initiare;
   Enter;
   x:=-1; y:=0;
   flag:=1;
    repeat
 if Block(i+x,j+y)=True then  //если впереди блок тогда 
       begin
       RotD;  // поворачиваем направо
        if Block(i+x,j+y) // если и на право блок то
           then while Block(i+x,j+y)=True do   // поворачиваем налево до тех пор пока найдем свободное пространство
                  RotS
                else Move(i,j); // если после поворота направо нету блока то шаг вперед
       end else Move(i,j); //если впереди нету блока то шаг вперед
    until Exit(i,j)=True;  // выполнять пока не найдем выход
readln;
end.

Для примера массива что я написал выше, он идёт наверх, поворачивает, видет что там тупик, и идёт в обратном направлении пока дойдёт до входа, и опять всё заново ((

З.Ы , как тут спойлер написать? что-бы можно было свернуть весь код.

Там откуда я взял задачу, она по техники Greedy, и есть Подсказка: Выбирать из Множество [Вниз, Вверх, Направо, Налево] так что-бы робот двигался вдоль одной стены.

Сообщение отредактировано: DarkWishmaster - 28.03.2011 21:12