Добро пожаловать, гость
:: алгоритмы  и методы :: :: олимпиадные задачи :: :: связь :: :: о сайте :: :: форум ::

Форум работает в режиме архива, только для чтения и поиска.
Архив 2004 Архив 2007 Архив 2013

 
 
Опции темы Поиск в этой теме Опции просмотра
  #11  
Старый 29.03.2010, 21:07
гость

 
Сообщений: n/a

А что надо изменить чтобы заработало на с++ , так не работает(???
  #12  
Старый 04.04.2010, 15:08
гость

 
Сообщений: n/a

Кто-нибудь может переписать для с++ ????????????????((((((((((((((((((((((((
  #13  
Старый 04.04.2010, 19:26
гость

 
Сообщений: n/a

все могут и всем влом. перепиши сам.
  #14  
Старый 13.04.2010, 22:17
Новичок

Отправить личное сообщение для goldlider Посмотреть профиль Найти все сообщения от goldlider
 
Регистрация: 13.04.2010
Сообщений: 1

Алгоритм Форда-Фалкерсона
Кто-нибудь может помочь с реализацией алгоритма Форда-Фалкерсона на Delphi. Курсовая вот вот на носу. Задание вот в чем состоит. Создать библиотеку в которой будет вычисляться максимальный поток по алгоритму Форда-Фалкерсона. А вот входные данные нужно написать в блокноте.
К примеру мы вводим такую матрицу:
3 3
1 2 4
1 3 2
2 3 3

Где в первой строке мы первое значение т.е. 3 это кол-во вершин в графе. В той же строке только второй столбец 3 это кол-во ребер.
А матрица
1 2 4
1 3 2
2 3 3
Это значит первый столбец к примеру обозначим через x, второй через y, а третий через z.
Где x-начало вершины откуда мы проводим ребро.
y-конец вершины куда мы проводим ребро
z-пропускная способность.
Так вот мы считываем эти значения затем мы составляем матрицу смежности. А затем использую библиотеку вычисляем максимальный поток. Кто-нибудь может помочь? Посмотрел в инете множество страниц связанное с этой темой. Но не удовлетворяет в полной мере мои потребности.
  #15  
Старый 13.04.2010, 22:21
MBo MBo вне форума
Местный

Отправить личное сообщение для MBo Посмотреть профиль Найти все сообщения от MBo
 
Регистрация: 21.09.2006
Адрес: Новосибирск
Сообщений: 1,374

здесь смотрел?
http://forum2007.algolist.ru/showfla...=0& fpart=all
  #16  
Старый 13.04.2010, 22:43
гость

 
Сообщений: n/a

MBo: Смотрел. Но там кажется не то что мне нужно.
Я вот тут начал немного делать. Прога которая вводит считывает данные которые мы вводим в блокноте.
К примеру матрицу которую я указывал выше записать в Memo:

procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
x,y,z,i,n,m:integer;
ms:array of array of integer;
begin
AssignFile(f,'vvod.txt'); //n - кол-во вершин
Reset(f); //m - кол-во ребер
readln(f,n,m); //x - начало вершины с которой проводим ребро
Setlength(ms,n,n); //y - конец вершины в которую проводим ребро
for i:=0 to m-1 do //z - пропускная способность
begin
readln(f,x,y,z);
ms[x,y]:=z;
Memo1.Lines.Add(InttoStr(ms[x,y]));
end;


end;

end.

Никак не получается вывести в Memo
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра