Даны координаты центров и радиусы 2-ух окружностей. найти координаты точек пересечения. pascal, c, или четкий алгоритм.

var x1, x2, y1, y2, r1, r2, d, b, x3, x4, y3,y4,x,y, h, a: real;

begin readln(x1, y1, r1, x2, y2, r2); d : = sqrt(sqr(x1 - x2) + sqr(y1 - y2)); if (d > r1 + r2) or (d < abs(r1 - r2)) then writeln('no intersection point') else if (x1 = x2) and (y1 = y2) then if (r1 = r2) then writeln('infinity') else writeln('no intersection point') else begin b : = (r2 * r2 - r1 * r1 + d * d) * 0.5 / d; a : = d - b; h : = sqrt(abs(r1 * r1 - sqr(; x : = x1 + (x2 - x1) * a / d; y : = y1 + (y2 - y1) * a / d; x3 : = x - (y - y2) * h / b; y3 : = y + (x - x2) * h / b; x4 : = x + (y - y2) * h / b; y4 : = y - (x - x2) * h / b; writeln(x3, ' ', y3); if(x3< > x4)or(y3< > y4) then writeln(x4, ' ', y4); end; end.

a: = 20;

b: = 15;

b: = 3 * b - a; // 3 * 15 - 20 = 45 - 20 = 25;

if (a > b) // Здесь условие, если а (20) больше b (25) то, мы решали дальше по этой формуле: с: = 2 * а + b, а т. к. b > a, то решаем по этой формуле: с: = 2 * а - b..

c: = 2 * a - b; // 2 * 20 - 25 = 40 - 25 = 15;

ответ: с: = 15.