# end; Получаем

end; Получаем цепочку: Way[5,5] ?Way[2,5] ?Way[2,4] ?Way[2,3] ?Way[2,1] ?Way[1,1]. Жирным шрифтом выделены процедуры, в которых имя города выводится на входе в рекурсию, курсивом - на выходе из рекурсии. Цепочка имеет вид: 5 2 1 3 4 5 (индексы городов, напомним, что нумерация изменена для удобства на противоположную). Осталось привести процедуру нахождения A (ее фрагмент). ... FillChar(A,SizeOf(A),0); A[1,1].d:=1; for i:=2 to n do for j:=1 to i do if (i&lt;&gt;j) or (i=n) then for k?Qi do if ((k&lt;&gt;j) or (j=1)) and (A[k,j].d&lt;&gt;0) and (A[k,j].d+1&gt;A[i,j].d) then begin A[i,j].d+A[k,j].d+1;A[j,i].d:=A[i,j].d; A[i,j].l:=k;A[j,i].l:=A[i,j].l; end; Рассмотрим решения задачи методом полного перебора вариантов. Для этого требуется ряд дополнительных структур данных, а именно: New:array[1..max] of boolean; way_r:array[1..2*max] of byte; Первый массив необходим для хранения признака - посещался или нет город (New[i]=true - города с номером

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