FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
![Топологическая сортировкамассив order длины n, order[i] — присвоенный i-й вершине порядковый номер](/img/tmb/11/1076121/4a5db63809a79e3096d5f3bbd96c76e0-720x.jpg "Алгоритмы на графах. Топологическая сортировка отсечением вершин")
Pascal
...
a[u, v] := True;
Inc(deg_in[v]);
...
C
...
a[u, v] = TRUE;
deg_in[v]++;
...
Pascal
for i := 1 to n do
order[i] := 0;
currorder := 0;
TopSort;
TopSort:
for i := 1 to n do
for j := 1 to n do
if (deg_in[j] = 0) and
(order[j] = 0) then
begin
Inc(currorder);
order[j] := currorder;
for do
Dec(deg_in[u]);
end;
C
for(i = 0; i < n; i++)
order[i] = 0;
currorder = 0;
TopSort;
TopSort:
for(i = 0; i < n; i++)
for(j = 0; j < n; j++)
if((!deg_in[j]) && (!order[j]))
{
order[j] = ++currorder;
for()
deg_in[u]--;
};
