Пользуйся кнопкой код.
Сорри за оффтоп.
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Центр помощи > [Delphi] Расстояние между 2 городами |
| Автор: Uli89 30.11.2008, 23:51 |
| Добрый день.Кто-нибудь может помочь написать программу на 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;(выбор конечного города) Желательно использовать НЕ алгоритм Дейкстры. СПАСИБО!!!!!!!!!!!!! |
| Автор: Letov 1.12.2008, 00:34 |
| Тебе сюда http://forum.vingrad.ru/forum/Vingrad-help-center.html. Пользуйся кнопкой код. Сорри за оффтоп. |
| Автор: Данкинг 1.12.2008, 01:09 | ||||
 Присоединяюсь к Letov'у и хочу снова подивиться: неужели сейчас в институтах ничего не объясняют, а только спрашивают?  Более по теме: а, собственно, к чему выложены эти куски кода?  Чтобы запутать?  К примеру, зачем кратчайший путь хранить в массиве логических переменных???  Я про сиё:
И вроде как, если требуется написать алгоритм решения чего-то, то должно быть предоставлено условие решение задачи. А уж как назвать переменную: MAXTOWNCOUNT или TNUOCNWOTXAM, думаю, решит сам программист. А вот это почему-то вообще без комментария:
Теперь я не буду спать, думая над тем, что же означает в данном куске кода переменная first.  |
| Автор: Alexeis 1.12.2008, 10:40 |
| Для домашних заданий, курсовых, существует "Центр Помощи". Тема перенесена! |
| Автор: Uli89 1.12.2008, 11:09 |
| Массивы выложены для того, что нужно их использовать в задаче по моим представлениям.Это не так?Если нет, то какие Вы предложите? // город (вершина графа) уже обсчитан Ready: array [0..MAXTOWNCOUNT-1] of boolean; // текущий кратчайший пусть до этого города из первого Paths: array [0..MAXTOWNCOUNT-1] of word; Вы не так прочитали. // индекс первого города first: integer Помогите пожалуйста, если кто знает?Спасибо |
| Автор: Uli89 6.12.2008, 11:30 |
| Кто-нибудь может помочь?за деньги! Пишите.ICQ: 428803438 |