Алгоритмы Прима и Крускала

justify">      ' '+IntToStr(FindVes(imin,Res[imin]))+#13; 

      end;

      label13.Caption:=inttostr(Ves_gr);

      label15.Caption:=inttostr(Sr);

      label17.Caption:=inttostr(Pr);

      t2:=timer;

      t:=t+t2-t1;

     end;

      TP:=abs(t/100);

      Label8.Caption:=floattostr(TP)+'*0.01 c';

     end; 

     procedure TMain.N2Click(Sender: TObject);

     begin

     close;

     end; 

     procedure TMain.N4Click(Sender: TObject);

     begin

     aboutbox.Show;

     end; 

     end. 
 
 
 
 
 
 

     unit Unit2; 

     interface 

     uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

      Buttons, ExtCtrls; 

     type

      TAboutBox = class(TForm)

      Panel1: TPanel;

      ProgramIcon: TImage;

      ProductName: TLabel;

      Version: TLabel;

      Copyright: TLabel;

      Comments: TLabel;

      OKButton: TButton;

      procedure OKButtonClick(Sender: TObject);

      private

      { Private declarations }

      public

      { Public declarations }

      end; 

     var

      AboutBox: TAboutBox; 

     implementation 

     {$R *.dfm} 

     procedure TAboutBox.OKButtonClick(Sender: TObject);

     begin

     close;

     end; 

     end.

 

     Вывод 

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

     Для алгоритма Прима количество сравнений  и присваиваний больше, так как  нужно сортировать данные два  раза (в алгоритме Крускала 1 раз).

     Можно сделать вывод, что для нахождения остова для графов с большим количеством  вершин, алгоритм Прима будет затрачивать  больше времени. Также для разреженных  графов более применителен алгоритм Крускала.