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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Использование функций в коде программы http://www.cyberforum.ru/cpp-beginners/thread209843.html
Дана целочисленная квадратная матрица. Определить: сумму элементов в тех строках, которые не содержат отрицательных элементов; минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы. Отдельно написал два кода: Дана целочисл. квадр. матр. Найти сумму эл-тов в тех строках, которые не содержат отриц. эл-тов.
C++ Создать новый файл, где удалены все числа, являющиеся полными квадратами Помогите решить данную зачётную задачу в Си: В файле записана непустая последовательность целых чисел (целое- непустая последовательность десятичных цифр, возможно начинающаяся знаком + или-). Создать новый файл, где удалены все числа, являющиеся полными квадратами http://www.cyberforum.ru/cpp-beginners/thread209562.html
C++ Вывод на экран 8 нижних подчеркиваний (с использованием классов)
Необходимо написать программу,с использованием классов, выводящую на экран 8 символов нижней черты "_" ( не знаю точно как ее обозвать). class cherta {public: void vivodcherti() }; void cherta::vivodcherti() {for(int i=0;i<8;i++) {cout<<"_";} } int main
Циклы C++
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления и нахождения остатка от деления не использовать)
C++ Курсовой проект (С++) http://www.cyberforum.ru/cpp-beginners/thread209388.html
Препод дал задание по программированию( C ++). Сам я электрик, ничерта не смыслю в программировании. Нашел ваш форум в надежде что вы поможете. Спасибо! ЗАДАНИЕ на курсовую работу По дисциплине: ПРОГРАММНЫЕ СРЕДСТВА МОДЕЛИРОВАНИЯ ЭЛЕКТРОННОЙ КОМПОНЕНТНОЙ БАЗЫ Вариант № 6 . Название курсовой работы: Модуль дискретизации расчетной области для МКР.
C++ нужны решения (С++, Microsoft Visual Studio 2008(Компилятор)) Всем доброе время суток вобщем у меня проблема заболел не был на занятиях в академии а нужны решенные 4 задачи, вообщем в задачах можно использовать if, switch, for(цикл), сопсна только это нам разрешают пока что использовать, и задачи должны быть без вложенных циклов и масивов вот сопсна задачи: 1) Рассчитать, сколько денег должен заплатить пользователь кредита в конкретном месяце. Вводится... подробнее

Показать сообщение отдельно
cfkhellboy
1 / 1 / 0
Регистрация: 13.12.2010
Сообщений: 4

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

13.12.2010, 13:30. Просмотров 903. Ответов 4
Метки (Все метки)

Нужна программа на 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}
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru