 |
|
Модераторы: Poseidon |
 
|
|
[Delphi] Расстояние между 2 городами 
| Uli89 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 26.11.2008 Репутация: нет Всего: нет |
Добрый день.Кто-нибудь может помочь написать программу на 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 |
|
|||
 Опытный  Профиль Группа: Участник Сообщений: 321 Регистрация: 22.2.2007 Где: Санкт-Петербург Репутация: 4 Всего: 4 |
Тебе сюда http://forum.vingrad.ru/forum/Vingrad-help-center.html.
Пользуйся кнопкой код. Сорри за оффтоп.  -------------------- Не бывает плохих языков программирования. Бывают плохие программисты... |
|||
|
||||
| Данкинг |
|
||||
 Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: нет Всего: 130 |
 Присоединяюсь к Letov'у и хочу снова подивиться: неужели сейчас в институтах ничего не объясняют, а только спрашивают?  Более по теме: а, собственно, к чему выложены эти куски кода?  Чтобы запутать?  К примеру, зачем кратчайший путь хранить в массиве логических переменных???  Я про сиё:
И вроде как, если требуется написать алгоритм решения чего-то, то должно быть предоставлено условие решение задачи. А уж как назвать переменную: MAXTOWNCOUNT или TNUOCNWOTXAM, думаю, решит сам программист. А вот это почему-то вообще без комментария:
Теперь я не буду спать, думая над тем, что же означает в данном куске кода переменная first.  -------------------- There's nothing left but silent epitaphs. |
||||
|
|||||
| Alexeis |
|
|||
 Амеба  Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 23 Всего: 459 |
Для домашних заданий, курсовых, существует "Центр Помощи".
Тема перенесена! -------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| Uli89 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 26.11.2008 Репутация: нет Всего: нет |
Массивы выложены для того, что нужно их использовать в задаче по моим представлениям.Это не так?Если нет, то какие Вы предложите?
// город (вершина графа) уже обсчитан Ready: array [0..MAXTOWNCOUNT-1] of boolean; // текущий кратчайший пусть до этого города из первого Paths: array [0..MAXTOWNCOUNT-1] of word; Вы не так прочитали. // индекс первого города first: integer Помогите пожалуйста, если кто знает?Спасибо |
|||
|
||||
| Uli89 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 26.11.2008 Репутация: нет Всего: нет |
Кто-нибудь может помочь?за деньги! Пишите.ICQ: 428803438
|
|||
|
||||
|
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
[ Время генерации скрипта: 0.0626 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |