Найти все вершины графа, к которым существует путь заданной длины от выделенной вершины графа

@Vitaliy1992 · Регистрация: 25.04.2015

Author24 — интернет-сервис помощи студентам

Написать программу на prologuse на русском языке как на примере(Определить, является ли связным заданный граф.)

@Black Fregat · 25.04.2015, 18:34

А с какой целью каждая переменная у Вас начинается с подчёркивания?

Вам нужно в предикат p добавить счётчик длины пути.
Я бы добавил, но мне страшно лень переписывать предикат p с картинки..

@Vitaliy1992 · 25.04.2015, 19:25 **[ТС]**

Плиз умоляю сделайте, а то я не бум бум. Ща текст программы скину.

Prolog

ребро(a,c).
ребро(a,b).
ребро(c,d).
ребро(b,d).
ребро(e,d).
ребро(f,g).
реб(_A,_B):-ребро(_A,_B);ребро(_B,_A).
элем(_H,[_H|_]).
элем(_X,[_|_T]):-элем(_X,_T).
путь(_A,_B,_P):-p(_A,[_B],_P).
p(_A,[_A|_T],[_A|_T]).
p(_A,[_B|_T],_P):-реб(_B,_C),not(элем(_C,_T)),p(_A,[_C,_B|_T],_P).
две_вершины:-реб(_A,_),реб(_B,_), _A\=_B, not(путь(_A,_B,_)).
граф_связный:-not(две_вершины).
?-граф_связный.

@Black Fregat · 26.04.2015, 06:32

Prolog

p(0, _A, [_A|_T], [_A|_T]).
p(N,_A, [_B|_T], _P) :-
  реб(_B,_C),
  not(элем(_C,_T)), 
  N1=N-1, 
  p(N1, _A,[_C,_B|_T],_P).

Такой p будет искать только пути заданной длины.

@Vitaliy1992 · 26.04.2015, 06:42 **[ТС]**

Спасибо большое:-)

@Vitaliy1992 1 / 1 / 0 Регистрация: 25.04.2015 Сообщений: 7
		1
	Найти все вершины графа, к которым существует путь заданной длины от выделенной вершины графа 25.04.2015, 16:28. Показов 1852. Ответов 4 Метки нет (Все метки) Написать программу на prologuse на русском языке как на примере(Определить, является ли связным заданный граф.) Миниатюры 0

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	25.04.2015, 18:34	2
	А с какой целью каждая переменная у Вас начинается с подчёркивания? Вам нужно в предикат p добавить счётчик длины пути. Я бы добавил, но мне страшно лень переписывать предикат p с картинки.. 1

@Vitaliy1992 1 / 1 / 0 Регистрация: 25.04.2015 Сообщений: 7
	26.04.2015, 06:42 [ТС]	5
	Спасибо большое:-) 0