Эйлеровый путь в графе

@twix_uk · Регистрация: 26.12.2012

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

Разработать алгоритм и написать программу нахождения Эйлеровых циклов некоторого графа

@Vityok · 03.12.2013, 14:38

Delphi

Procedure Search(v:Integer);{*Глобальные
переменные: А - матрица смежности, CV - стек;
yk - указатель стека. *}
Var j:Integer;
Begin
  For j:=1 To mm Do
  If A[v,j]<>0 Then
  Begin
    A[v,j] :=0;A[j,v] :=0;
    Search (j);
  End;
  Inc (yk);Cv[yk]:=v;
End;
 
procedure TForm2.btn2Click(Sender: TObject);
var i:Integer;
begin
Search(1);
lbl1.Caption:='Имеет путь:    ';
for i:=1 to yk do
lbl1.Caption:=lbl1.Caption+inttostr(cv[i])+', ';
end;

Добавлено через 48 секунд
забыл добавить процедура роботает только с матрицой смежности

@twix_uk 4 / 5 / 3 Регистрация: 26.12.2012 Сообщений: 73
		1
	Эйлеровый путь в графе 03.12.2013, 12:29. Показов 1578. Ответов 1 Метки нет (Все метки) Разработать алгоритм и написать программу нахождения Эйлеровых циклов некоторого графа 0

	03.12.2013, 14:38

Опции темы

Эйлеровый путь в графе

Решение