реализация пути эйлера на Delphi

[J.K.]

помогите решить задачу о нахождении пути эйлера в графе.

[J.K.]

ОЧЕНЬ НАДО

[J.K.]

или хотя бы подскажите где можно найти. только с исходниками. буду очень благодарна.

[MalCer]

Вот модуль:

unit MinLength;
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Dialogs,
  StdCtrls,IO,Data,AbstractAlgorithmUnit;
type
  TMinLength = class(TAbstractAlgorithm)
  private
     StartPoint:integer;
     EndPoint:integer;
     First:Boolean;
     Lymbda:array of integer;
     function Proverka:Boolean;
  public
     procedure Make;
  end;

var
  MyMinLength: TMinLength;
implementation

uses MainUnit, Setting;
procedure TMinLength.Make;
         var i ,j  : integer;
            PathPlace,TempPoint:Integer;
            flag:boolean;
         begin
           with MyData do begin
     StartPoint:=MyIO.FirstPoint;
     EndPoint:=MyIO.LastPoint;
                     SetLength(Lymbda,Dimension+1);
            SetLength(Path,Dimension+1);
           for i:=1 to Dimension do
              Lymbda[i]:=100000;
           Lymbda[StartPoint]:=0;
           repeat
             for i:=1 to Dimension do
                for j:=1 to Dimension do
                   if Matrix[i,j]=1 then
                     if  ( ( Lymbda[j]-Lymbda[i] ) > MatrixLength[j,i] )
                       then Lymbda[j]:=Lymbda[i] + MatrixLength[j,i];
           until Proverka ;

           Path[1]:= EndPoint ;
           j:=1;
           PathPlace:=2;
           repeat
             TempPoint:=1;
             Flag:=False;
             repeat
               if ( Matrix[ Path[ PathPlace-1 ],TempPoint] =1  )and (
                  Lymbda[ Path[ PathPlace-1] ] =
                   ( Lymbda[TempPoint] + MatrixLength[ Path[PathPlace-1 ], TempPoint] ) )
                   then Flag:=True
                   else Inc( TempPoint );
             until Flag;
             Path[ PathPlace ]:=TempPoint;
             inc( PathPlace );
             MyIO.DrawPath(Path[ PathPlace-2 ],Path[ PathPlace -1],true);
 //            ShowMessage('f');
           until(Path[ PathPlace - 1 ] = StartPoint);
//           MyIO.DrawPath(Path[ PathPlace-1 ],Path[ PathPlace ],true);
           end;
         end;
function TMinLength.Proverka:Boolean;
         var i,j:integer;
             Flag:boolean;
         begin
           i:=1;
           Flag:=False;
           With MyData do begin
           repeat
             j:=1;
             repeat
               if Matrix[i,j]=1 then
               if ( Lymbda[j]-Lymbda[i] )>MatrixLength[j,i]then Flag:=True;
               inc(j);
             until(j>Dimension)or(Flag);
             inc(i);
           until(i>Dimension)or(Flag);
           Result:=not Flag;
           end;
         end;
end.

[J.K.]

спасибо. если есть програма полностю скиньте на Ylja_Kravets@ukr.net.