Найти точки пересечения двух окружностей - Pascal ABC
Формулировка задачи:
Даны координаты центров двух окружностей (0,0)и (x2,y2), а также их радиусы r1 и r2. Найти точки пересечения этих окружностей, помогите решить или подскажите как решить
Решение задачи: «Найти точки пересечения двух окружностей»
textual
Листинг программы
var x1,y1,r1,x2,y2,r2,d:real;
begin
x1:=0;
y1:=0;
writeln('радиус первой окружности:');
readln(r1);
writeln('x2=');readln(x2);
writeln('y2=');readln(y2);
writeln('r2=');readln(r2);
d:=sqrt(sqr(x1-x2)+sqr(y1-y2));
begin
if d>r1-r2 then write('Окружности пересекаются')
else
if d>r1+r2 then write('Окружности отделены')
else
write('Окружность внутри друг друга');
end;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д