# A[5,3].l:=2 5 3 [2,3,4] 3

A[5,3].l:=2 5 3 [2,3,4] 3 - 5 3 [2,3,4] 4 A[5,3].d~A[4,3].d+1 5 4 [2,3,4] 2 A[5,4].d:=A[2,4].d+1=5 A[5,4].l:=2 5 4 [2,3,4] 3 A[5,4].d~A[3,4].d+1 5 4 [2,3,4] 4 - 5 5 [2,3,4] 2 A[5,5].d:=A[2,5].d+1=6 A[5,5].l:=2 5 5 [2,3,4] 3 A[5,5].d~A[3,5].d+1 5 5 [2,3,4] 4 A[5,5].d~A[4,5].d+1 После этой прокрутки массив A по полю d имеет вид: A[i,j].d 1 2 3 4 5 1 1 2 2 3 4 2 2 1 3 4 5 3 2 3 1 0 4 4 3 4 0 1 5 5 4 5 4 5 6 а по полю l («*» обозначено неопределенное значение): A[i,j].l 1 2 3 4 5 1 * 1 1 3 4 2 1 1 1 3 4 3 1 1 1 * 2 4 3 3 * 3 2 5 4 4 2 2 2 Попробуем по этой таблице вывести путь для нашего примера с помощью следующей процедуры: procedure Way(i,j:integer); begin if (i=1) and (j=1) then writeln(name[1]) else if i&gt;=j then begin writeln(name[i]); Way(A[i,j].l,j); end else begin Way(i,A[i,j].l); writeln(name[j]); end;

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