id3 do (f, iTmp);: = iTmp; (f, iTmp);: = iTmp;. Value: = ColCount-1; i: = 0 to ColCount - 1 dok: = 0 to RowCount - 1 do (f, strTemp); [i, k]: = strTemp;;. Caption: =''; ; (f); StringGrid3.ColCount> 10 then button6.Click else button5.Click ;//оновимо ізображеніе.Caption: = 'Розмістити місто' + IntToStr (pos +1);; TForm1.Button8Click (Sender: TObject);: TextFile;, k: Integer; (not SaveDialog1.Execute ()) then exit;// перевіряємо відкрився Чи діалог завантаження (f, SaveDialog1.FileName); (f); StringGrid3 do (f, ColCount); (f, RowCount) ; i: = 0 to ColCount - 1 dok: = 0 to RowCount - 1 do (F, Cells [i, k]);; (F);; TForm1.N10Click (Sender: TObject);
begin.Click;// виклик рішення Гамільтона циклу
end; TForm1.Button11Click (Sender: TObject); i, j, k: integer;: array of array of integer; pos <2 then exit; (dost, pos, pos); i: = 1 to pos doj: = 1 to pos doStringGrid3.Cells [j, i] <> '0 'then [i-1, j-1]: = 1 else dost [i-1, j-1]: = 0;
for k: = 0 to pos-1 do// шукаємо чи можна скоротити шлях через третю вершину К
for i: = 0 to pos-1 doj: = 0 to pos-1 do [i, j]: = dost [i, j] or (dost [i, k] and dost [ k, j]); dost [isv.Value-1, vv.Value-1] = 0 then
label5.Caption: = 'Місто НЕ досяжний'
begin.Caption: = 'Місто досяжний'; i: = 1 to pos doj: = 1 to pos do.Cells [j, i]: = inttostr (dost [i-1, j- 1]);;; TForm1.StringGrid3KeyUp (Sender: TObject; var Key: Word;: TShiftState);;; TForm1.vvChange (Sender: TObject); vv.Value> pos then vv.Value: = pos;; TForm1. isvChange (Sender: TObject); isv.Value> pos then isv.Value: = pos;; TForm1.IzverChange (Sender: TObject); izver.Value> pos then izver.Value: = pos;; TForm1.N6Click (Sender: TObject);. show;; redrow_result_true; i, j: integer; pos = 0 then exit;: = form1.stringgrid3.ColCount-1;. Image1.Canvas.Pen.Mode: = pmCopy;. Image1.Canvas.Brush. Color: = clWhite;. Image1.Canvas.Rectangle (0,0, form1.Image1.Width, form1.Image1.Height);// очищення канвас без міганія.Image1.Canvas.Pen.Width: = 3;. Image1. Canvas.Pen.Color: = clGreen; i: = 1 to n do// малюємо ребраj: = 1 to n dostrtoint (form1.StringGrid3.Cells [i, j])> 0 then.Image1.Canvas.MoveTo (vers [i]. x, vers [i]. y);. Image1.Canvas.lineTo (vers [j]. x, vers [j]. y);
///червона крапка направленія.Image1.Canvas.pen.Color: = clRed;. Image1.Canvas.Brush.Color: = clRed;. Image1.Canvas.ellipse (round (vers [j ]. x + (vers [i]. x-vers [j]. x) * 0.9) -4, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.9) -4, (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.9) +4, round (vers [j]. y + (vers [i]. y-vers [j ]. y) * 0.9) +4);. Image1.Canvas.ellipse (round (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.93) -3, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.93) -3, (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.93 ) +3, round (vers [j]. y + (vers [i]. y-ver...
