Advertisement
Guest User

Untitled

a guest
Jun 6th, 2017
199
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.49 KB | None | 0 0
  1. //пусть задана матрица смежности M n x n
  2. Procedure dfs
  3. For i:=1 to n do
  4. For j:=1 to n do
  5. Mas[i][j]:=‘-’ //M – массив меток вершин
  6. For i:=1 to n do
  7. For j:=1 to n do
  8. if Mas[i][j]:=‘-’ then
  9. search(i,j) //процедура поиска в глубину от вершины 𝑣
  10. End dfs
  11. Procedure search(i,j)
  12. Mas[i][j]:=‘+’
  13. For k:=1 to n do
  14. For m:=1 to n do
  15. if Mas[k][m]=‘-’ and M[k][m]=1 then
  16. search(u)
  17. End search
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement