» Арена искусственных интеллектов Gridwars
Поиск в ширину в графе ( BFS ) . Pascal, Delphi. Empty

Ср Окт 12, 2016 2:43 am автор SeriousPasha

» требуется несколько JS разработчиков
Поиск в ширину в графе ( BFS ) . Pascal, Delphi. Empty

Пт Окт 07, 2016 10:19 pm автор mrktwn1

» Защита приложения от взлома
Поиск в ширину в графе ( BFS ) . Pascal, Delphi. Empty

Чт Июн 18, 2015 10:28 pm автор stradi

» Ищите программиста или дизайнера?
Поиск в ширину в графе ( BFS ) . Pascal, Delphi. Empty

Пт Мар 27, 2015 6:25 am автор фриланс

» Создание и продвижение сайтов, их развитие.
Поиск в ширину в графе ( BFS ) . Pascal, Delphi. Empty

Ср Мар 25, 2015 12:40 am автор asdfghhgfdsa

» Исходники для студентов + скайп-консультации,помощь в написании программ
Поиск в ширину в графе ( BFS ) . Pascal, Delphi. Empty

Вт Окт 07, 2014 11:25 pm автор Horpion

» IT- технологии для развития бизнеса
Поиск в ширину в графе ( BFS ) . Pascal, Delphi. Empty

Пн Июн 23, 2014 6:11 pm автор dvos12

» Стенли Кубрик "С Широко закрытыми Глазами"
Поиск в ширину в графе ( BFS ) . Pascal, Delphi. Empty

Чт Июн 12, 2014 2:01 am автор Vertuozzz

» Каталог популярных хостинг компаний
Поиск в ширину в графе ( BFS ) . Pascal, Delphi. Empty

Сб Май 10, 2014 7:18 pm автор naik

Aster (142)

Exkalibur (89)

Administrator (34)

ak95 (8)

K4_ (7)

LuDa (7)

Admin (6)

Поиск в ширину в графе ( BFS ) . Pascal, Delphi.

Aster: Admin; Сообщения : 142
Очки : 274
Репутация : 11
Дата регистрации : 2010-01-07

автор Aster Ср Ноя 03, 2010 12:16 am

Вот решил наконец выложить процедуру BFS:

Код:: Procedure BFS(v: integer); Var q: array[1..n] of integer; start, finish, i, j: integer; Begin fillchar(q, sizeof(q), 0); start := 0; finish := 0; inc(finish); q[finish] := v; marked[v] := true; while(start < finish) do begin inc(start); v := q[start]; {WriteLn(v);} For j := 1 to n do if (a[v, j] <> 0) and (not marked[j]) then begin inc(finish); q[finish] := j; marked[j] := true; end; end; End;