Кратчайший путь в графе Опции

[SeregaR1Val]

Помогите пожалуйста с программкой:
"Поиск кратчайшего пути в графе методом полного перебора в ширину с использованием АТД очередь"
Сам алгоритм у меня есть, но ничего не знаю про АТД очередь, ни у кого нет примеров такой программы?

[volvo]

ничего не знаю про АТД очередь

Читай:
FAQ -> Очереди

[SeregaR1Val]

Читай:
FAQ -> Очереди

Толку мало, прочитал, а смысла 0. Там только процедуры описаны как записать в стек, как оттуда достать и т.д. А у меня есть конкретная задача и я не знаю как их связать. работать с очередями, стеками и деками целый семестр, поэтому хотелось бы поподробнее.

Мне дан такой алгоритм:

procedure Quepush(start);
While not QueueEmpty do
begin
      Current:=Quepop
      Finished:=Current=finish;
      j:=1;
      while j<=N do
      begin
        if (M[Current,j]<>0) and not visited(j,way) then
        begin
          Way[j]:=Current;
          Finished:=j=finish;
          if not Finished then QueuePush(j)
            else
            begin
              i:=finish;
              while i<>start do
              begin
                   write(Way[i]:3); 
                   i:=Way[i];
              end;
              writeln;
            end;
          inc(j);
        end;
     end;
end;

Start, current, finish - начальная. текущая и конечная вершина;
Finished - флаг окончания поиска; Visited - функция, проверяющая принадлежность текущей вершины построенной части пути, M - матрица смежности вершин графа.

И как совместить это я вообще не подозреваю.
Если кто-то может чем-то помочь - помогите.

Сообщение отредактировано: SeregaR1Val - 2.10.2008 17:39