Поиск в ширину в графе Опции

[Aleks]

Помогите решить задачу
Напишите и используйте в программе процедуру поиска в ширину в графе, заданном списками инцидентности. Выведите на экран номера всех вершин в порядке очередности просмотра.

я не знаю с чего начать, посмотрел в "FAQ" но не смог разобраться

[Aleks]

Спасибо volvo, что бы я делал без тебя

volvo не затруднит тебя дать заключение по этой проге
где есть огрехи, которые следовало бы исправить.

Заранее благодарю за помощь.

[volvo]

что бы я делал без тебя

:D Делал бы сам ...

volvo не затруднит тебя дать заключение по этой проге где есть огрехи, которые следовало бы исправить.

Огрех или не огрех, но такие вещи не приветствуются, потому что могут привести к нежелательным результатам (процедура DP_Graph)...

for j:=1 to raz do begin
  spro:= true;
  if j<> raz then begin
    if j=i then inc(j); { <--- Изменение параметра цикла в самом цикле }
    n:= nil; n:= lst[j];
    if lst[j]<>nil then
    repeat
      if n^.inf=ver[i] then spro:= false; n:= n^.next;
    until (n=nil) or (not(spro));
    if (round(random)=1) and spro then add;
  end;
end;

Кроме этого, возможно имело бы смысл всю работу со списком (добавление элемента, печать, просмотр, произведение однотипных операций над элементами списка) выделить в отдельные процедуры (или даже в отдельный модуль), но это уже на любителя, хотя лично мне так было бы проще разобраться, я не знаю, как проще тебе...