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<>j) or (i=n) then for k?Qi do if ((k<>j) or (j=1)) and (A[k,j].d<>0) and (A[k,j].d+1>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 - города с номером
Индекс
Элементарные функции    Линейные уравнения    Нелинейные уравнения    Случайные числа


Hosted by uCoz