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

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

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

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

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

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

Для видалення вершини активуємо відповідну кнопку на панелі задач і натиснувши лівою кнопкою мишки по відповідній вершині, ми її видаляємо.

Далі, потрібно заповнити матрицю суміжності, вказавши відстані між вершинами.

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

Скачати алгоритм Прима.