# процедура swap,

процедура swap, ее параметры - индексы элементов массива way). Эта процедура, вероятно, должна сообщать о том, что она «что-то изменила», ибо нам необходимо продолжать работу до тех пор, пока что-то меняется, происходят улучшения. Итак, логика процедуры local. Procedure local; var i,j:integer; change:boolean; &lt;здесь функции best1 и best2, а также процедура swap&gt;; begin repeat change:=false; for i:=1 to n-1 do for j:=i+1 to n do if i=j+1 then begin if best1(i,j) then swap(i,j);end else if (i=1) and (j=n) then begin if best1(i,j) then swap(i,j); end{Об этой проверке лучше первоначально умолчать, чтобы было о чем спросить, «если совсем будет плохо» - все понимают и нет вопросов} else if best2(i,j) then swap(i,j); until not(change); end. 3.10.2. Алгоритм Эйлера Этот алгоритм и следующий работоспособны в том случае, если выполняется неравенство треугольника. Его суть в том, что для любой тройки городов i, j, k (между которыми есть связь) выполняется неравенство

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