برنامه جستجوی سطحی ( bfs ) به کمک صف

من این برنامه رو از کتاب ساختمان داده آقای مقسمی براتون نوشتم البته تکمیلش با خودتون دیگه
procedure bfs(v:integer);

begin 

   write(data(v));

   visited[v]:=true;

    addq(q,v);

    while not emptyqueue(q) do begin

    delq(q,v);

    for all node w adjacent to v do begin

    if (not visited[w]) then begin

     write(data[w]);

     addq(q,w);

     visited[w]:=true;

      end;

    end;

end;

end;
v گره ای است که پیماش را از آن شروع می کنیم و w هم گره مجاور
برای آنکه بفهمیم کدام گره پیمایش و کدام ها نشده اند از آرایه visited استفاده شده