Форум программистов, компьютерный форум CyberForum.ru

Фундоментальные циклы графа - C++

Восстановить пароль Регистрация
 
cfkhellboy
1 / 1 / 0
Регистрация: 13.12.2010
Сообщений: 4
13.12.2010, 13:30     Фундоментальные циклы графа #1
Нужна программа на C\C++.по фундоментальным циклам графа,есть прога подобная на паскале но она у меня почемуто не работает...хотя пример взят из книжки где автор утверждает что она работает))) вот она помогите кто чем сможет(((
Pascal
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Program GraphCycle; {Фундаментальные циклы графа} 
uses CRT,DOS; 
Const 
nVertex=100; {Максимальное количество вершин} 
nAdjacent=1000; {Максимальная длина списка смежности} 
Туре 
TypeVertex=array[I..nVertex] of Integer; 
TypeAdjacent=array[1..nAdjacent] of Integer; 
{ Текстовый файл } 
{ Количество вершин } 
{ Количество вершин в стеке циклов} 
Var 
f :Text;
n :Integer;
nC :Integer;
Adj :TypeAdjacent; { Список смежности графа } 
Fst :TypeVertex; { Указатели вершин списка смежности} 
Nbr :TypeVertex; { Количество вершин в списке 
смежности } 
Vtx :TypeVertex; { Список вершин графа } 
Mark :TypeVertex; { Номера компонент для вершин графа} 
С :TypeVertex; { Стек выделения циклов графа } 
В :TypeVertex; { Признаки основных и обратных ребер 
прохода в глубину } 
jC :Integer; { Счетчик числа циклов } 
count:Integer; { Счетчик меток вершин } 
Procedure Init( var yes :Boolean ); 
{ Переназначение меток вершин } 
{ их порядковыми номерами в списке смежности } 
{ yes - признак правильной структуры списка смежности } 
Var 
i,j,m -.Integer; 
begin 
for i:=l to n do 
for j:=l to Nbr[i] do begin 
yes:=FALSE; 
for m:=l to n do 
if Adj[Fst[i]+j]=Vtx[m] then begin 
yes:=TRUE; 
Adj[Fst[i]+j]:=m; 
break; 
end; 
if not yes then exit; 
end; 
end; 
Procedure PrintCycle( x:Integer; var С:TypeVertex; 
nC:Integer); {Печать цикла из стека} 
begin 
Write(ffjC,')'); 
repeat 
Write(f,Vtx[C[nC]]:3); 
nC:=nC-l; 
until C[nC]=x; 
Writeln(f); 
end; 
Procedure Cycle( x,у:Integer ); 
Var 
i,v :Integer; 
begin 
 
count:=count+l; 
Mark[x]:=count; 
for i:=l to Nbr[x] do begin 
v:=Adj[Fst[x]+i]; 
nC:=nC+l; C[nC]:=v; 
if Mark[v]=0 then Cycle(v,x) 
else if (Mark[v]<Mark[x]) and (v<>y) then begin 
(Обратное ребро в пройденную вершину - найден цикл} 
PrintCycle(v,C,nC); 
end; 
nC:=nC-l; 
end; 
end; 
Procedure DepthCycle; {Проход в глубину за циклами) 
Var 
v:Integer; 
begin 
jC:=O; {Счетчик числа циклов} 
nC:=0; {С - стек циклов пустой } 
count:=0; {Номер метки вершины} 
for v:=l to n do Mark[v]:=0; 
for v:=l to n do if Mark[v]=0 then begin 
nC:=nC+l; C[nC]:=v; 
Cycle(v,0); 
nC:=nC-l; 
end; 
end; 
Var {Main} 
i,j :Integer; 
yes .-Boolean; 
begin {Main} 
Assign(f,'Cycle.in' ) ; 
Reset(f);{Файл открыт для чтения} 
{Ввод списка смежности} 
Read(f,n); {Количество строк в списке} 
Fst[l]:=0; {Указатель начала первой строки списка} 
for i:=l to n do begin 
Read(f,Vtx[i]); {Метка вершины} 
Read(f,Nbr[i]); {Количество вершин в списке} 
for j:=l to Nbr[i] do Read(f,Adj[Fst[i]+j]); 
{Список смежных вершин} 
Fst[i+1]:=Fst[i]+Nbr[i]; {Указатель начала следующей 
строки в списке} 
 end; 
Close(f); 
Assign(f,'Cycle.out' ) ; 
Rewrite(f); {Файл открыт для записи} 
Init(yes); 
if not yes then begin 
WriteLn(f,'Плохая структура смежности графа!'); 
Close(f) ; 
exit; 
end; 
DepthCycle; 
Close(f); 
end. {Main}
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
First_Big_Love
2 / 1 / 0
Регистрация: 14.12.2010
Сообщений: 3
15.12.2010, 17:24     Фундоментальные циклы графа #2
А не подскажите, что за книжечка такая, где была опубликована эта программа?
cfkhellboy
1 / 1 / 0
Регистрация: 13.12.2010
Сообщений: 4
15.12.2010, 19:02  [ТС]     Фундоментальные циклы графа #3
Книжки Дискретные алгоритмы.Автор Иванов
First_Big_Love
2 / 1 / 0
Регистрация: 14.12.2010
Сообщений: 3
16.12.2010, 14:07     Фундоментальные циклы графа #4
спасибо большое
cfkhellboy
1 / 1 / 0
Регистрация: 13.12.2010
Сообщений: 4
29.12.2010, 17:53  [ТС]     Фундоментальные циклы графа #5
никто ни чем не помог всем спасибо сам роздуплил
Yandex
Объявления
29.12.2010, 17:53     Фундоментальные циклы графа
Ответ Создать тему
Опции темы

Текущее время: 01:22. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru