Алгоритм поиска источника орграфа
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
}
begin('Путь: ');i:=1 to p-1 do write(road[i],' ');;
else begin{выбираем очередную точку}
for c:=1 to n do begin{проверяем все вершины}
if (m[s,c]<>0) and (not incl[c]) then
{точка соединена с текущей и не включена в маршрут}
begin
road[p]:=c;{добавим вершину в путь}
incl[c]:=true;{пометим вершину как включеную}
z:=z+[c];(c,f,p+1);[c]:=false;[p]:=0;;;;;
step2;,st2:string;i:=1 to n doj:=1 to n dom[i,j]<>0 then q:=q+[i,j];:=q-z;i in e then
begin(I,st2);{заносим в переменную st2 значение переменной i}
st:=источником является вершина под номером +st2;
end;;(st);;
v<>6 do
writeln(' выберите номер из пункта меню. ');
writeln(' 1.создание новой матрицы ');
writeln(' 2.вывод матрицы на экран ');
writeln(' 3.создание ребр ');
writeln(' 4.нахождение всех путей');
writeln(' 5.нахождение источников');
read(v);
case v of
:init(m);
:print(m);
:vvod(m);
:beginstart:=1 to n dofinish:=1 to n dostart<>finish then(m);[1]:=start;[i]:=true;(start,finish,2);;;;
:step2;;;
Приложение В
Рис.8
Рис.9
Рис.10
Рис.11
Рис.12
Рис.13
Рис.14
Рис.15
Список используемых источников
1.Культин Турбо Паскаль 7.0
2.Новиков Дискретная математика для программистов
3.Киракозов А.. Поиск гамильтонова цикла.
.Берж К. Теория графов и ее применения
.Немлюгин С.А. Turbo Pascal: практикум. - СПб.: Питер, 2002.
6.Программирование на языке Паскаль: задачник / под ред. Усковой О.Ф. - СПб.: Питер, 2003.