поток, равный P[i,2],
поток, равный P[i,2], в вершину с номером i. Логическая переменная Lg, значение true - есть цепочка, увеличивающая поток, false - нет.
Основная логика.
begin
<ввод данных и инициализация переменных(Lg:=true)>;
while Lg do begin
FillChar(P,SizeOf(P),0);
<процедура расстановки меток(Mark), если вершину t не смогли пометить, то Lg:=false; результат работы - значение P (метки вершин) >;
if Lg then <процедура Stream(t) - изменение потока по дугам найденной цепочки от вершины-стока t до вершины-источника s; входные данные - массив P, результат - измененный массив F>;
end;
<вывод потока F>;
end.{конец обработки}
Уточним логику расстановки меток (нелучший вариант).
procedure Mark;
var M:set of 1..N;i,l:integer;
begin
M:=[1..N]; {непросмотренные вершины}
P[s,1]:=s;P[s,2]:=maxint;{присвоим метку вершине-источнику}
l:=s;
while (P[t,1]=0) and Lg do begin
for i:=1 to N do {поиск непомеченной вершины}
if (P[i,1]=0) and
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
