1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids, UADS;

type
  TFrmRoutenplaner = class(TForm)
    BtBeenden: TButton;
    StrGrdbestweg: TStringGrid;
    StrGrdMatrix: TStringGrid;
    SpEdAnzahl: TSpinEdit;
    LbAnzahl: TLabel;
    LBZiel: TLabel;
    LBStart: TLabel;
    SpEdZiel: TSpinEdit;
    SpEdStart: TSpinEdit;
    StrGrdBestentfernung: TStringGrid;
    BtBerechne: TButton;
    procedure BtBeendenClick(Sender: TObject);
    procedure SpEdAnzahlChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtBerechneClick(Sender: TObject);
    procedure SpEdStartChange(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FrmRoutenplaner: TFrmRoutenplaner;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

interface

type
 TMatrix = Array[1..13,1..13] of Integer;
var
 Verbindungen : TMatrix;

type
 TWeg = Array[1..13] of Integer;
var
 Weg, Bestweg : TWeg;

type
 Tbesucht = Array[1..13] of boolean;
var
 besucht : Tbesucht;

var
 AnzahlOrte, Startort, Zielort, MomOrt,Entfernung, Bestentfernung, Schritte  : Integer;