0 / 0 / 0
Регистрация: 21.11.2018
Сообщений: 6
1

Проверить , является ли граф связным

26.12.2018, 11:46. Показов 2039. Ответов 1

Студворк — интернет-сервис помощи студентам
Доброго времени суток. В очередной раз без Вашей помощи не обойтись!!!!!!
ЗАДАНИЕ:
Дан неориентированный граф, содержащий n вершин. Проверить, является ли этот граф связным, где Т-связный, nil-не связный
Буду очень признательна, если поможете разобраться в теме и задании!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2018, 11:46
Ответы с готовыми решениями:

Проверить, является ли заданный граф связным
Помогите, пожалуйста, исправить ошибку!!! edge(a, c). edge(a, b). edge(c, d). edge(b, d)....

Является ли граф связным
В задаче нужно определить является ли неориентированный граф связным. Нужно использовать стек....

Определить является ли граф связным
Нужно определить является ли граф связным. Но при работе программы появляется ошибка при нажатии на...

Определить, является ли связным заданный граф
Определить, является ли связным заданный граф

1
Модератор
Эксперт функциональных языков программированияЭксперт Python
34460 / 19139 / 4022
Регистрация: 12.02.2012
Сообщений: 32,064
Записей в блоге: 13
26.12.2018, 12:25 2
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
;; Дать следующую вершину при обходе в глубину
 
(defun get-next (graph v chk)
  (iter (for e in graph) 
   (when (and (eq v (car e)) (not (member (cadr e) chk))) (return (cadr e)))
   (when (and (eq v (cadr e)) (not (member (car e) chk))) (return (car e)))))
 
;; Обход в глубину с построением каркаса
 
(defun dfs (graph s chk tree)
  (let ((next-v (get-next graph (car chk) chk)))
    (cond ((null s) tree)
          ((null next-v) (dfs graph (cdr s) chk tree))
          (t (dfs graph (cons next-v s) (cons next-v chk) (cons (list next-v (car chk)) tree))))))
 
;; Решение задачи
 
(defun task (graph)
  (let ((vlist (setof (apply 'append graph)))
        (tree  (dfs graph (list (caar graph)) (list (caar graph)) nil)))
    (= (length (setof (apply 'append tree))) (length vlist))))
 
(task '((a b) (b c) (c d)))
==> T
 
(task '((a b) (b c) (e d)))
==> NIL
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2018, 12:25
Помогаю со студенческими работами здесь

Определить, является ли заданный граф связным
Пожалуйста, помогите, очень-очень нужна ваша помощь в задании: "определить является ли заданный...

Проверить является ли граф циклом
Добрый день, форумчане. Помогите пожалуйста со следующей задачей: Дан ориентированный граф из n...

Проверить является ли заданный граф блоком SWI prolog
Граф задается списком ребер, нужно проверить является ли заданный граф блоком на SWI prolog. ...

Проверить, является ли ориентированный граф, с заданным количеством узлов и рёбер, деревом
Дан ориентированный граф из n узлов и m рёбер. Проверить, является ли он деревом. Помогите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru