# структуры данных}

структуры данных} var m,i,j:integer; begin for i:=1 to N do for j:=1 to N do D[i,j]:=A[i,j]; for i:=1 to N do D[i,i]:=0; for m:=1 to N do for i:=1 to N do for j:=1 to N do {основной цикл} D[i,j]:=min{D[i,j],D[i,m]+D[m,j]}; end; Пример Примечание. Верхний индекс у D указывает номер итерации (значение m в процедуре Distance). 0 1 2 1 0 1 2 1 0 1 2 1 2 0 7 ? 2 0 4 3 2 0 4 3 D0= 6 5 0 2 D1= 6 5 0 2 D2=D1 D3= D2 D4= 3 4 0 2 1 ? 4 0 1 2 3 0 1 2 3 0 Расстояния между парами вершин дает D. Для вывода самих кратчайших путей введем матрицу M того же типа, что и D. Элемент M[i,j] определяет предпоследнюю вершину кратчайшего пути из i в j. Процедура Distance претерпит небольшие изменения. В том случае, когда D[i,j] больше D[i,m]+D[m,j], изменяется не только D[i,j], но и M[i,j]. M[i,j] присваивается значение M[m,j]. Для нашего примера изменения M выглядят следующим образом. 1 1 1 1 1 1 1 1 1 1 1 1 2

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа