])) 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);; k: = i +1 to j-1 do
// Поиск точок Перетин i-го та k-го кола
D: = sqrt (sqr (X1 [k]-X1 [i]) + sqr (Y1 [k]-Y1 [i]));// < span align = "justify"> відстань между центрами Кіл (D <= (R [i] + R [k])) AND (D> = ABS (R [i]-R [k ])) Then// ЯКЩО кола перетінаються
Begin: = (sqr (R [k])-sqr (R [i]) + sqr (D))/(2 * D);// < span align = "justify"> відстань від центру іншого кола до точки Перетин всех ліній
A: = DB;// відстань від центру Першого кола до точки Перетин всех ліній
H: = sqrt (sqr (R [k])-sqr (B));// відстань від точки Перетин всех ліній до точок Перетин Кіл
// X, Y - координати центру Перетин всех ліній // X3, Y3 - координати Першої точки Перетин кола з утворюючім
// X4, Y4 - координат та Другої точки Перетин кола з утворюючім // Установка параметрів для побудова точок Перетин Побудова точок Перетин Кіл // Різніця между координатами Перетин i-го кола Із утворюючім та i-го кола з k-м
if ((abs (y3-y33) <= 1) and (abs (x3-x33) <= 1)) begin: = w +1; [w]: = x3; yy [w]: = y3;// формуємо масив координат точок крісталізації
end; ((abs (y4-y44) <= 5) and (abs (x4-x44) <= 5)) then: = w +1; [w] : = x4; yy [w]: = y4;// формуємо масив координат точок крісталізації
end; end; end; end; ...
