Студенческий портал

admin@studynote.ru
/ Регистрация
X
Помощь студенту > Готовые работы > Отчеты > Отчеты по программированию > Моделирование решения задачи минимизации пути (Delphi)

Тема : Моделирование решения задачи минимизации пути (Delphi)

300 рублей
Купить

или

Заказать новую работу

Более 20 способов оплатить! После оплаты вы получаете ссылку на скачивание. Гарантия на - 3 дня. Исключительно в ознакомительных целях! Все вопросы admin@studynote.ru

Общая информация
Описание работы
Дополнительная информация

(фрагменты работы)

Общая информация
Учебное заведение: Другие города > Вузы города Екатеринбург > Уральский государственный технический университет - УПИ
Тип работы: Отчеты, Решение задач
Категория: Программирование
Год сдачи: 2016
Количество страниц: 16
Оценка: 5
Рейтинг работы:
Иллюстрация №1: Моделирование решения задачи минимизации пути (Delphi) (Отчеты, Решение задач - Программирование). Иллюстрация №2: Моделирование решения задачи минимизации пути (Delphi) (Отчеты, Решение задач - Программирование).
Описание работы

Задача:

Для заданной конечной сети без изолированных узлов требуется найти такой путь, при котором любая пара узлов данной сети может быть соединена частью этого пути напрямую или через другие узлы, а суммарная длина образующих его рёбер наименьшая по сравнению с такой же оценкой для других путей, обладающих этим свойством.

Написать программу, реализующую алгоритм на Delphi.

Дополнительная информация

(фрагменты работы)

{стирание рёбер исходной сети}
for k:=0 to Length(Edges0)-1 do
if ((n+1)=Edges0[k].v1) or ((n+1)=Edges0[k].v2) then
begin
Pen.Color:=clBlack;
ind1 := Edges0[k].v1-1;
MoveTo(Net[ind1].x0+rad, Net[ind1].y0+rad);
ind2 := Edges0[k].v2-1;
LineTo(Net[ind2].x0+rad, Net[ind2].y0+rad);
Brush.Color:=clBlack;
Rectangle(Edges0[k].xc, Edges0[k].yc, Edges0[k].xc+10, Edges0[k].yc+12);
if ind1=n then DrawCircle(ind2)
elseDrawCircle(ind1);
end;

------

Пример 1
Количество узлов: 12
В результате работы программы получили:
Сначала предлагается открыть текстовый файл, в котором записана сеть. Файл должен содержать следующую информацию: размер сети, затем комбинации из двух номеров узлов и длины ребра между ними. В данном примере используется файл следующего содержания(числа записаны в столбик):