Помогите пожалуйста с программкой: "Поиск кратчайшего пути в графе методом полного перебора в ширину с использованием АТД очередь" Сам алгоритм у меня есть, но ничего не знаю про АТД очередь, ни у кого нет примеров такой программы?
procedure step; begin queueinit(q); queuepush(q,start); While not queueEmpty(q) do begin Current := queuepop(q); 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 queuepop(q) end; inc(j); end; end; end;
begin Label1.caption:='';
for i:=1 to N do for j:=1 to N do if StringGrid1.Cells[i,j] <> '' then M[i,j]:=StrToInt(StringGrid1.Cells[i,j]) else M[i,j]:=0; start:=StrToInt(Edit1.text); finish:=StrToInt(Edit2.text); step; while i<>start do begin Label1.caption:=IntToStr(way[i]); end;
end;
end.
Помогите пожалуйста доделать ... Я программирую в Delphi недавно и поэтому вопрос ламерский: как вывести массив в форме? Пытаюсь сделать уже несколько дней Со StringGrid вроде как разобрался, считается тоже все хорошо, но вывести на экран не могу.