r [j] +1;
// Побудова утворюючого кола з новим радіусом
image1.canvas.Ellipse (x1 [j]-r [j], y1 [j]-r [j], x1 [j] + r [j], y1 [j ] + r [j]); kol = 0 then f: = false; (not f) then// моделювання закінчене . Enabled: = false; // Відключення таймеру
dxBarButton6.Caption: = 'Моделювати'; // зміна назви кнопки
dxBarButton6.Enabled: = false; // кнопка "Моделювання
становится недоступною
end;
// знаходимо точки Перетин всех Кіл Із утворюючім
if not (w1 = (j-1)) then// ЯКЩО галі не знайдені ВСІ точки крісталізації i: = +1 to j-1 do// перебіраємо в ціклі ВСІ створені кола окрім утворюючого : = sqrt (sqr (X1 [i]-X1 [j]) + sqr (Y1 [i]-Y1 [j]));// відстань между центрами Кіл (D <= (R [i] + R [j])) AND (D> = ABS (R [i]-R [j])) Then// ЯКЩО кола перетінаються
Begin: = (sqr (R [i])-sqr (R [j]) + sqr (D))/(2 * D);// < span align = "justify"> відстань від центру іншого кола до точки Перетин всех ліній
A: = DB;// відстань від центру Першого кола до точки Перетин всех ліній
H: = sqrt (sqr (R [i])-sqr (B));// відстань від точки Перетин всех ліній до точок Перетин Кіл
// X, Y - координати центру Перетин всех ліній // X3, Y3 - координати Першої точки Перетин кола з утворюючім
// X4, Y4 - координат та Другої точки Перетин кола з утворюючім : = round (X- (Y-Y1 [i]) * H/B);: = round (Y + (X-X1 [i]) * H/B);: = round (X + (Y-Y1 [i]) * H/B );: = round (Y-(X-X1 [i]) * H/B);
// Установка параметрів для побудова точок Перетин // Побудова точок Перетин Кіл
// Поиск точок Перетин всех Кіл между собою и перехоплення точок крісталізації
for i: = 1 to j-2 do
// Поиск точок Перетин i-го кола з утворюючім
D: = sqrt (sqr (X1 [i]-X1 [j]) + sqr (Y1 [i]-Y1 [j]));// < span align = "justify"> відстань между центрами Кіл (D <= (R [i] + R [j])) AND (D> = ABS (R [i]-R...
