Обход графа

← →
Ksanf (2008-02-08 18:48) [0]

Здравствуйте уважаемые, мне нужно реализовать обход в глубину и в ширину в delphi c отчетом хотя бы в TMemo
У меня есть уже исходные матрицы

SpisocArr: array of array of Integer;//cписок дуг
InArr: array of array of Integer;// матр инцинденции
SmArr: array of array of Integer;//матр смежности

Кого не задтруднит помогите плз. Заранее благодарен.

← →
ketmar © (2008-02-08 18:53) [1]

чем тебе помочь? ты же не сказал, сколько за работу платишь.

---
Understanding is not required. Only obedience.

← →
Ksanf (2008-02-08 18:55) [2]

> ketmar © (08.02.08 18:53) [1]

Для вас это должно быть мелочью:), могу показать как не получается:)

← →
ketmar © (2008-02-08 19:03) [3]

>[2] Ksanf (2008-02-08 18:55:00)
вот и начинай с неработающего кода и описания попыток решения. тогда видно, что работал, но зашёл в тупик. а пока — видно, что делать ничего не хочется, а решить домашнее задание надо.

---
Understanding is not required. Only obedience.

← →
trubin © (2008-02-08 19:23) [4]

> видно, что делать ничего не хочется, а решить домашнее задание
> надо

то ли еще будет готовтесь:

http://www.delphiplus.org/articles/press_release/2008/codegear_in_russian_school_system.html

:))

← →
Ksanf (2008-02-08 20:01) [5]

procedure Pg(v:integer);
var
i:integer;
begin
Nnew[v]:=true;
write(v:2);
for i:=0 to n-1 do
if (a[v,i]<>0) and not (Nnew[i]) then Pg(i);

end;

Чего то вообще не получается помогите плз.

← →
fics © (2008-02-08 20:07) [6]

Ну вроде все правильно, только "write(v:2);" куда ты собрался выводить, ты же писал что в Memo надо, или ты в консольке делаеш?

← →
ketmar © (2008-02-08 20:10) [7]

>[5] Ksanf (2008-02-08 20:01:00)
>помогите плз.
с удовольствием бы эвтаназировал, но не могу пока по интернету.

ты пришёл сюда нам моск парить? иди в другое место — здесь старые, больные дяди, они в пятницу могут неадекватно набить виртуальное лицо.

---
Understanding is not required. Only obedience.

← →
fics © (2008-02-08 20:14) [8]

> Ksanf (08.02.08 20:01) [5]

Ты ее хоть где-то вызываеш или думаеш что так должно работать?

← →
Ksanf (2008-02-08 20:17) [9]

Вызываю, не дурак

← →
Ksanf (2008-02-08 20:56) [10]

Форум какой-то непонятный, что это для этого форма сильно сложный вопрос?

← →
Johnmen © (2008-02-08 21:01) [11]

> что это для этого форма сильно сложный вопрос?

Ага.

← →
ketmar © (2008-02-08 21:02) [12]

>[10] Ksanf (2008-02-08 20:56:00)
нет, автор вопроса наглый и глупый. мы тут халявщиков не любим, иди туда, где подают.

---
Understanding is not required. Only obedience.

← →
Ksanf (2008-02-08 21:02) [13]

← →
Ksanf (2008-02-08 21:03) [14]

>[14] Ksanf (2008-02-08 21:03:00)
http://ln.com.ua/~openxs/articles/smart-questions-ru.html

---
Understanding is not required. Only obedience.

> мне нужно реализовать обход в глубину и в ширину в delphi
> c отчетом хотя бы в TMemo

Я могу помочь реализовать обход других сайтов.

← →
Ksanf (2008-02-08 21:30) [17]

> Игорь Шевченко © (08.02.08 21:28) [16]

Да спасибо вам конечно, но хотелось бы просто разобрать вот это
procedure Pg(v:integer);
var
i:integer;
begin
Nnew[v]:=true;
write(v:2);
for i:=0 to n-1 do
if (a[v,i]<>0) and not (Nnew[i]) then Pg(i);

end;

Обход графа Найти похожие ветки