Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Обход графа [D7, XP]

Ksanf © (2008-02-08 18:48:00)
Здравствуйте уважаемые, мне нужно реализовать обход в глубину и в ширину в delphi c отчетом хотя бы в TMemo
У меня есть уже исходные матрицы

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

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

Ksanf (2008-02-08 21:30:00) [1]

> Игорь Шевченко © (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;

Игорь Шевченко (2008-02-08 21:28:00) [2]

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

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

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

---
Understanding is not required. Only obedience.

Ksanf (2008-02-08 21:03:00) [4]

> ketmar © (08.02.08 21:02) [12]

Ну объясните почему холявшит то, не пойму и все.

Ksanf (2008-02-08 21:02:00) [5]

> Johnmen ©

Да ладно ты же мастер:)

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

---
Understanding is not required. Only obedience.

Johnmen (2008-02-08 21:01:00) [7]

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

Ага.

Ksanf (2008-02-08 20:56:00) [8]
Форум какой-то непонятный, что это для этого форма сильно сложный вопрос?

Ksanf (2008-02-08 20:17:00) [9]
Вызываю, не дурак

fics (2008-02-08 20:14:00) [10]

> Ksanf (08.02.08 20:01) [5]

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

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

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

---
Understanding is not required. Only obedience.

fics (2008-02-08 20:07:00) [12]
Ну вроде все правильно, только "write(v:2);" куда ты собрался выводить, ты же писал что в Memo надо, или ты в консольке делаеш?

Ksanf (2008-02-08 20:01:00) [13]
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;

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

trubin (2008-02-08 19:23:00) [14]

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

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

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

:))

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

---
Understanding is not required. Only obedience.

Ksanf (2008-02-08 18:55:00) [16]

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

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

ketmar (2008-02-08 18:53:00) [17]
чем тебе помочь? ты же не сказал, сколько за работу платишь.

---
Understanding is not required. Only obedience.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »