Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Теория графов

Автор: MrDmitry 9.9.2015, 18:45

Парни помогите составить алгоритм нахождения матрицы достежимости с ограничением пути веса. Дана вот такая матрица

00500000
90006000
00070000
30000040
00020200
04009008
00200000
00000090

Ограничение Длины пути 5
веса пути 5.

Вот мой алгоритм

Код


var
i:integer;
//Матрица
matrix:array[0..8,0..8] of integer;
//формируем матрицу достежимостей
for i := 0 to length(Matrix)-1 do
begin
 //Считываем в переменную длину и вес пути
 step:=StrToInt(SetNewMatrix.Step.Text);
 weight:=StrToInt(SetNewMatrix.weight.Text);
 SearchMatrix(i,i);
end;
 
//Рекурсивный поиск матрицы
procedure TMain.SearchMatrix(x,y:integer);
var
 i:integer;
begin
try
for i := 0 to length(Matrix)-1 do
 begin
 if Matrix[i,x]<>0 then
 if (AchievMatrix[i,y]=0) and (step>0) then
  begin
  //Отнимаем от длины весов
   weight:=weight-Matrix[i,x];
  if weight>0 then
  begin
   //Отнимаем от длины пути
   dec(step);
   AchievMatrix[i,y]:=1;
   SearchMatrix(i,y);
  end;
  end;
 end;
 Except
  ShowMessage('Произошла ошибка!');
 end;
end;

Автор: Poseidon 9.9.2015, 22:41

Для домашних заданий, контрольных и курсовых существует http://forum.vingrad.ru/Vingrad-help-center.html.

Тема перенесена!

Автор: MrDmitry 10.9.2015, 18:02

Цитата(Poseidon @ 9.9.2015, 22:41)

Для домашних заданий, контрольных и курсовых существует http://forum.vingrad.ru/Vingrad-help-center.html.

Тема перенесена!

Блин, какая разница лабораторная это или нет если я не прошу помощи в написании программы и не прошу чтоб кто то что то сделал за меня. Я прошу помочь мне составить алгоритм.... И вообще по каким критериям оценивается нужно переносить тему или нет? Если посмотреть на общие вопросы в разделе дельфи то там 50% всех тем можно переносить в этот раздел помощи, а сейчас в этом разделе всего 2 (

Автор: ФедосеевПавел 10.9.2015, 23:25

MrDmitry, я вам уже пояснял http://forum.vingrad.ru/forum/topic-382904.html именно алгоритмы по решению именно этих задач. За полгода ничего не изменилось ни в дискретной математике ни в вашем образовании.

В том же топике я привёл рабочий код алгоритма. Его оставалось лишь доработать для решения конкретных задач.

Итак, воз и ныне там. Как прокомментируете своё безделие?