Реферат Графові моделі. Остов мінімальної ваги

/p>

Image1: TImage;

Image2: TImage;

Label2: TLabel;

Label3: TLabel;

Timer1: TTimer;

SpeedButton8: TSpeedButton;

CheckBox1: TCheckBox;

Bevel1: TBevel;

Bevel2: TBevel;

Bevel3: TBevel;

Bevel4: TBevel;

Bevel5: TBevel;

Bevel6: TBevel;

Bevel7: TBevel;

Bevel8: TBevel;

Bevel9: TBevel;

Bevel10: TBevel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Vremya: TTimer;

XPManifest1: TXPManifest;

Label4: TLabel;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Label5: TLabel;

Label6: TLabel;

procedure FormCreate (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

procedure SpeedButton7Click (Sender: TObject);

procedure Image2DblClick (Sender: TObject);

procedure SpeedButton8Click (Sender: TObject);

procedure Image1MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image2Click (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure VremyaTimer (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

procedure sgClick (Sender: TObject);

procedure srClick (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

f: file of integer;

idown, n, wrt, i, j: integer;

a, ar: array [1 .. 10,1 .. 10] of integer;

m: array [1 .. 10] of integer;

vx: array [1 .. 10] of integer;

vy: array [1 .. 10] of integer;

implementation

uses Unit2;

{$ R *. dfm}

procedure TForm1.FormCreate (Sender: TObject);

var

t, i: integer;

begin

n: = 8; {спочатку число вершин = 8}

SpeedButton3.Enabled: = True;

idown: = 1;

speedbutton7.click; p> image1.Canvas.brush.color: = clwhite;

image1.Canvas.pen.Color: = clwhite; p> image2.Canvas.brush.color: = clwhite;

image2.Canvas.pen.Color: = clwhite; p> image1.Canvas.Rectangle (0,0, image1.Width, image1.Height); p> image2.Canvas.Rectangle (0,0, image1.Width, image1.Height); p> for i: = 1 to sr.ColCount do

for j: = 1 to sr.Rowcount do begin

sr.Cells [i, j]: ='';

end; p> for i: = 1 to sg.ColCount do

for j: = 1 to sg.Rowcount do begin

sg.Cells [i, j]: ='';

edit1.Text: = inttostr (t);

for t: = 1 to n do begin

sg.Cells [t, t]: = '-';

sr.Cells [t, t]: = '-';

end; end;

...