Знаходження найкоротших маршрутів від першої до всіх інших вершин в орієнтованому графі

Delphi-програма реалізує процес відшукання найкоротших маршрутів від першої до всіх інших вершин в орієнтованому графі, використовуючи для цього алгоритм Дейкстри.

Після запуску проекту на екран виводиться форма, в якій, на першому кроці, необхідно задати граф. Для цього достатньо, у компоненті типу TEdit, вказати кількість вершин графа, що розглядається, та скористатись кнопкою «Створити матрицю». В результаті, на головній формі появиться відповідна таблиця типу TStringGrid (матриця суміжності). Далі, необхідно заповнити її даними, які відповідатимуть за відстані між вершинами. Також відмітимо, що не існуючі ребра позначаються символом «-».

Після того, як матрицю заповнено, пошук найкоротших маршрутів здійснюється за допомогою кнопки «Знайти мінімальні маршрути». В результаті виконання даного кроку, в нижній частині форми, а саме в компоненті TMemo, здійснюється вивід списку вершин, через які проходять мінімальні маршрути, а також вивід їх довжин.

Читати повністю

Знаходження дерева мінімальної вартості за алгоритмом Прима на Delphi(2)

Для запуску програми активуємо exe — файл «Project1.exe». В результаті відкриється форма наступного виду:

algoritm_prima_delphi21

На головній формі розміщені панель інструментів, яка містить чотири кнопки, з допомогою яких можна редагувати граф (кнопки «Додати вершину», «Видалити вершину»), видалити граф — кнопка «Видалити граф» і знайти дерево мінімальної вартості можна скориставшись одноіменною кнопкою.

Під панеллю інструментів форма ділиться на дві частини. Ліва частина («Граф») призначена для побудови графа, і права частина («Матриця суміжності»), яка містить відстані між вершинами.

В нижній частині форми розташований статусний рядок, в якому виводиться розв'язок у вигляді списку ребер.

Читати повністю