[Uli89]

Добрый день.Кто-нибудь может помочь написать программу на Delphi алгоритм нахождения расстояния между двумя городами.Пожалуйста, очень нужно.
Массивы:
// матрица весов (расстояний между городами)
Weights: array [0..MAXTOWNCOUNT-1, 0..MAXTOWNCOUNT-1] of integer;
// количество городов

towncount: integer;
// массивы для расчета
// город (вершина графа) уже обсчитан
Ready: array [0..MAXTOWNCOUNT-1] of boolean;
// текущий кратчайший пусть до этого города из первого

Paths: array [0..MAXTOWNCOUNT-1] of word;
// предпоследний узел пути из первого города до этого

Nodes: array [0..MAXTOWNCOUNT-1] of integer;
// индекс первого города

first: integer;

sgWeights: TStringGrid;(таблица городов и расстояний между ними)
lbTowns: TListBox;(в это поле добавляются города, введенные с клавиатуры в поле Edit)

ComboBox1: TComboBox;(выбор начального города)
ComboBox2: TComboBox;(выбор конечного города)

Желательно использовать НЕ алгоритм Дейкстры.
СПАСИБО!!!!!!!!!!!!!

[lmikle]

Классическая задача комивояджора.

Алгоритмы точного численного решения см здесь:
http://ru.wikipedia.org/wiki/%D0%90%...BB%D0%BB%D0%B0

Читаешь и кодируешь впрямую.

Также есть варианты использования эвристик. Например, можно посмотреть в книге "Готовые алгоритмы..." http://www.kodges.ru/8212-delphi.-go...algoritmy.html

[Uli89]

Кто-нибудь может помочь?за деньги! Пишите.ICQ: 428803438