процедура swap,
процедура swap, ее параметры - индексы элементов массива way). Эта процедура, вероятно, должна сообщать о том, что она «что-то изменила», ибо нам необходимо продолжать работу до тех пор, пока что-то меняется, происходят улучшения. Итак, логика процедуры local.
Procedure local;
var i,j:integer; change:boolean;
<здесь функции best1 и best2, а также процедура swap>;
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 (между которыми есть связь) выполняется неравенство
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
