X, Y: Integer); j, k, i, i2, xx, yy: integer; del_ver then// видалення вершини
// знайти удаляемую вершину: = findver (x, y, 10);// видалити всі ребра які входять і виходять їх цієї вершини
ver: = false;: = false;: = false; _ver: = false;
if k = 0 then exit; i: = 1 to StringGrid3.ColCount-1 doi> = k then vers [i]: = vers [i +1];
// будемо копіювати на одиницю назад стовпці, якщо вони стоять правіше видаляється вершини
for i: = 1 to StringGrid3.RowCount-1 doj: = 1 to StringGrid3.RowCount-1 doj> = k then StringGrid3.Cells [i, j]: = StringGrid3.cells [i, j +1]; j: = 1 to StringGrid3.RowCount-1 doi: = 1 to StringGrid3.RowCount-1 doi> = k then : = PmCopy;. Caption: = 'Розмістити місто' + IntToStr (pos +1);; ver then (pos); [pos]. X: = x; [pos]. Y: = y;
xx: = -100; yy: = -100; [pos]. num: = pos;
ver: = False;. Caption: = 'Розмістити місто' + IntToStr (pos +1); pos> 1 then.ColCount: = StringGrid3.ColCount +1;. RowCount: = StringGrid3.RowCount +1;. Value: = pos;; i: = 1 to edit1.value +1 do
begin// малюємо нові номери вершин після змін. кількості вершин
StringGrid3.Cells [i, 0]: = inttostr (i);. Cells [0, i]: = inttostr (i);; i: = 1 to edit1.value doi2: = 1 to edit1.value doStringGrid3.Cells [i2, i] ='' then.cells [i2, i]: = '0 ';
end;; ;//перерісуем що вийшло після додавання вершини
end; reb2 then begin: = false;: = false;: = 0;: = 0;: = findver (x, y, 10);
If i <> 0 then// якщо вказали все вірно з одного гуртка вершини в інший, то додамо в матрицю суміжності запис
0 then (n);. Cells [pos2, 0]: = inttostr (i);
i: = findver (x, y, 10);// знайти до якої вершині ми зараз додаємо ребро;;: = false;// невдала спроба додати ребро
end;;; TForm1.Button1Click (Sender: TObject);: = 0;: = 0;. Canvas.Pen.Mode: = pmNotXor;: = true;; TForm1.Button9Click (Sender: TObject); ns, ms, x, y, i, j: Integer;: real;: = 4 * 3.14/edit1.value;: = (edit1.value); i: = 1 to edit1.value do ((vers [i]. x = 0) or (vers [i]. y = 0)) then ((findver (x, y, 20)> 0) or (x <50) or ((y +50)> image1.Height) or (y <50) or ((x +50)> image1.Width)) do: = image1.Width-random (image1.Width * 2);: = image1.Height-random (image1. Height * 2);: = ns + 300 + trunc (cos (i * step + ms + ugol/100) * 100);: = ms + 150 + trunc (sin (i * step + ns + ugol/100) * 100) ;; [i]. x: = x; vers [i]. y: = y;;;; TForm1.Button5Click (Sender: TObject);
var x, y: Integer;: Integer;
step: real;: = 2 * 3.14/edit1.value; i: = 1 to edit1.value do [i]. x: = 300 + trun...
