прохождение лабиринта с помощью рекурсии, бинарная матрица Опции

[Positiv]

Доброго времени суток !!


Народ , помогите пожалуйста , нужно сделать программу :
дана двоичная матрица из 0 и 1 , в рандомной позиции появлятся человечек , которому нужно выйти в правый нижний угол , идти он может только по тем цифрам , на котрой сначала появился (то есть если появился на 1 то только по еденицам). Если выхода нет то нужно вывести на экран что нет выхода . матрица задается рандомно.
Программа должна быть сделана при помощи рекурсии .



Заранее спасибо.

[St@senk@]

Чтобы Ввы мне поверили, то вот реализация моего алгоритма.
Delphi

program Project2;

{$APPTYPE CONSOLE}

const n = 5;
var lab : array [1..n,1..n] of integer;
var labb : array [1..n,1..n] of boolean;
var x,y : integer;

function Step : boolean;
var res : boolean;
begin
  res:=false;
  if (x=n) and (y=n) then
    res:=true
  else begin
    if not(labb[x,y]) then begin
      labb[x,y]:=true;
      if (y>1) and (lab[x,y-1]=lab[x,y]) then begin
        dec(y);
        res:=res or step;
        inc(y);
      end;
      if (y<n) and (lab[x,y+1]=lab[x,y]) then begin
        inc(y);
        res:=res or step;
        dec(y);
      end;
      if (x>1) and (lab[x-1,y]=lab[x,y]) then begin
        dec(x);
        res:=res or step;
        inc(x);
      end;
      if (x<n) and (lab[x+1,y]=lab[x,y]) then begin
        inc(x);
        res:=res or step;
        dec(x);
      end;
    end;
  end;
  step:=res;
end;

var i,j : integer;
begin
  for i:= 1 to n do begin
    for j:= 1 to n do begin
      lab[j,i]:=random(2);
      write(lab[j,i]);
      labb[j,i]:=false;
    end;
    writeln;
  end;
  readln(x,y);
  write(step);
  readln;
end.

Pascal

program Project2;
uses crt;
const n = 5;
var lab : array [1..n,1..n] of integer;
var labb : array [1..n,1..n] of boolean;
var x,y : integer;

function Step : boolean;
var res : boolean;
begin
  res:=false;
  if (x=n) and (y=n) then
    res:=true
  else begin
    if not(labb[x,y]) then begin
      labb[x,y]:=true;
      if (y>1) and (lab[x,y-1]=lab[x,y]) then begin
        dec(y);
        res:=res or step;
        inc(y);
      end;
      if (y<n) and (lab[x,y+1]=lab[x,y]) then begin
        inc(y);
        res:=res or step;
        dec(y);
      end;
      if (x>1) and (lab[x-1,y]=lab[x,y]) then begin
        dec(x);
        res:=res or step;
        inc(x);
      end;
      if (x<n) and (lab[x+1,y]=lab[x,y]) then begin
        inc(x);
        res:=res or step;
        dec(x);
      end;
    end;
  end;
  step:=res;
end;

var i,j : integer;
begin
  for i:= 1 to n do begin
    for j:= 1 to n do begin
      lab[j,i]:=random(2);
      write(lab[j,i]);
      labb[j,i]:=false;
    end;
    writeln;
  end;
  readln(x,y);
  write(step);
  readln;
end.

Добавлено через 55 сек.
Lapp, извини, твоего сообщения не видел.