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

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

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

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

или

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

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

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

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

Учебное заведение:Другие города > Вузы города Екатеринбург > Уральский государственный технический университет - УПИ
Тип работы:Отчеты, Решение задач
Категория:Программирование
Год сдачи: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
В результате работы программы получили:
Сначала предлагается открыть текстовый файл, в котором записана сеть. Файл должен содержать следующую информацию: размер сети, затем комбинации из двух номеров узлов и длины ребра между ними. В данном примере используется файл следующего содержания(числа записаны в столбик):