| ← Март 2020 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
|
16
|
17
|
18
|
19
|
21
|
22
|
|
|
24
|
26
|
27
|
28
|
29
|
||
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197974: Здравствуйте! У меня возникли сложности с таким вопросом: Реализуйте программу, в которой выполняется алгоритм обхода графа на основе поиска в ширину DELPHY В КОНСОЛИ!!!... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 13.03.2020, 12:13 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код program DepthFirstSearch;
uses crt;
const
n = 5;
var
i, j, start: integer;
visited: array[1..n] of boolean;
const
graph: array[1..n, 1..n] of byte =
((0, 1, 0, 0, 1),
(1, 0, 1, 1, 0),
(0, 1, 0, 0, 1),
(0, 1, 0, 0, 1),
(1, 0, 1, 1, 0));
{поиск в глубину}
procedure DFS(st: integer);
var
r: integer;
begin
write(st:2);
visited[st] := true;
for r := 1 to n do
if (graph[st, r] <> 0) and (not visited[r]) then
DFS(r);
end;
{основной блок программы}
begin
clrscr;
writeln('Матрица смежности:');
for i := 1 to n do
begin
visited[i] := false;
for j := 1 to n do
write(graph[i, j], ' ');
writeln;
end;
write('Стартовая вершина >> '); read(start);
writeln('Результат обхода'); DFS(start);
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 13.03.2020, 12:14 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код program BreadthFirstSearch;
uses crt;
const
n = 4;
type
MassivInt = array[1..n, 1..n] of integer;
MassivBool = array[1..n] of boolean;
var
i, j, start: integer;
visited: MassivBool;
{матрица смежности графа}
const
GM: MassivInt = (
(0, 1, 1, 0),
(0, 0, 1, 1),
(1, 0, 0, 1),
(0, 1, 0, 0));
{поиск в ширину}
procedure BFS(visited: MassivBool; _unit: integer);
var
queue: array[1..n] of integer;
count, head: integer;
begin
for i := 1 to n do queue[i] := 0;
count := 0; head := 0;
count := count + 1;
queue[count] := _unit;
visited[_unit] := true;
while head < count do
begin
head := head + 1;
_unit := queue[head];
write(_unit, ' ');
for i := 1 to n do
begin
if (GM[_unit, i] <> 0) and (not visited[i]) then
begin
count := count + 1;
queue[count] := i;
visited[i] := true;
end;
end;
end;
end;
{основной блок программы}
begin
clrscr;
write('Стартовая вершина >> '); read(start);
writeln('Матрица смежности графа: ');
for i := 1 to n do
begin
visited[i] := false;
for j := 1 to n do
write(' ', GM[i, j]);
writeln;
end;
write('Порядок обхода: ');
BFS(visited, start);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
