Форум: "Начинающим";
Текущий архив: 2008.03.02;
Скачать: [xml.tar.bz2];
ВнизОбход графа Найти похожие ветки
← →
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]
> Johnmen ©
Да ладно ты же мастер:)
← →
Ksanf (2008-02-08 21:03) [14]
> ketmar © (08.02.08 21:02) [12]
Ну объясните почему холявшит то, не пойму и все.
← →
ketmar © (2008-02-08 21:05) [15]>[14] Ksanf (2008-02-08 21:03:00)
http://ln.com.ua/~openxs/articles/smart-questions-ru.html
---
Understanding is not required. Only obedience.
← →
Игорь Шевченко © (2008-02-08 21:28) [16]
> мне нужно реализовать обход в глубину и в ширину в 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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.03.02;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.048 c