Алгоритм поиска цепи в неориентированном графе Опции

[Kolar]

У меня имеется неориентированный граф, заданный в виде списков смежных вершин. Мне надо узнать, есть ли путь из одной вершины графа в другую. Я пробовал делать рекурсией, но должно быть другое решение.

[virt]

Код

program put;
const maxr=1000;{kol-vo reber}
var a:array[1..2,1..maxr]of integer;
   b:array[1..maxr]of boolean;
   r,i:integer;
   a1,a2:integer;{a1 -- nachalnaya;a2 -- konechnaya}

procedure solve(yk:integer);
var j:integer;
begin
  if yk = a2 then
     begin
        writeln('put est');
        halt;
     end;
  for j:=1 to r do
  begin
     if (a[1,j]=a1) and (not b[j]) then
     begin
        b[j]:=true;
        solve(a[2,j]);
     end;
     if (a[2,j]=a1) and (not b[j]) then
     begin
        b[j]:=true;
        solve(a[1,j]);
     end;
  end;
end;

begin

ВЫРЕЗАННО АДМИНОМ.
Готовые ответы - плохо в этом разделе.
Это теория. Автору темы просто нужно пояснить теорию, если возникнут прблеммы при реализации
мы выслушаем, и поможем..
end.

Сообщение отредактировано: Oleg_Z - 12.02.2005 15:03