[i, j]: = inttostr ( j); (i <> 0) and (j = 0) then Form1.D.Cells [i, j]: = inttostr (i); (i <> 0) and (j <> 0) and (i <> j) + DecDolg)), 0,5);. D.Cells [sp, fp]: = copy (floattostr (SQRT (DecShir + DecDolg)), 0,5);;; MatrixS;, j: integer; i: = 0 to N doj: = 0 to N doi = j then Form1.s.Cells [i, j]: = '----'; (i = 0) and (j <> 0) then Form1.s. Cells [i, j]: = inttostr (j); (i <> 0) and (j = 0) then Form1.s.Cells [i, j]: = inttostr (i); (i <> 0 ) and (j <> 0) and (i <> j) then begin.S.Cells [j, i]: = inttostr (j);;;; TForm1.Image1MouseDown (Sender: TObject; Button: TMouseButton; : TShiftState; X, Y: Integer);: integer;, DlinaY: integer; not checkbox1.Checked points ';. D.ColCount: = N +1;. D.RowCount: = N +1;. s.ColCount: = N +1;. s.RowCount: = N +1; (false, 0,0) ;; begini: = 1 to n do begin (x> PointMas [i]. x-8) and (x
(y> PointMas [i]. y-8) and (y j) and (i <> k) and (j <> k) then TObject);, j, one, two: integer;: string;: real; (strtoint (edit1.Text)> n) or (strtoint (edit2.Text)> n) then (0, '? Р'юую'юишСћхеЄтр Тхе В° ше ехЄ! ','? В° шс'р ', {And strtoint (s.Cells [two, i]) <> 0)} thenstrtoint (S.Cells [two, i]) <> two do begin: = strtoint (S.Cells [two, i] ); (strtoint (S.Cells [j, i]) <> j) do: = strtoint (S.Cells [j, i]);: = way + ',' + S.Cells [j, i] ;: = dlina + strtofloat (d.Cells [j, i]);: = j;;: = way + ',' + inttostr (two);: = dlina + strtofloat (d.Cells [two, i]) ; 5.Caption: = 'Найкоротша відстань:' + way;
label6.Caption: = 'Мінімальна довжина:' + floattostr (dlina); end;;.