Цитата:
Сообщение от clope
edit:
Вот само условие задачи:
Даны две окружности одинакового радиуса, заданные координатами их центров. Определить, пересекаются ли они, в этом случае вычислить площадь четырехугольника, образуемого центрами окружностей и точками их пересечения.
|
Да пожалуйста. Элементарно:
Код:
VAR
R,X1,Y1,X2,Y2,H,D,S:Real;
BEGIN
Write('R= ');
ReadLn(R);
WriteLn('First circle center:');
Write('X1= ');
ReadLn(X1);
Write('Y1= ');
ReadLn(Y1);
WriteLn('Second circle center:');
Write('X2= ');
ReadLn(X2);
Write('Y2= ');
ReadLn(Y2);
D:=SQRT(SQR(X1-X2)+SQR(Y1-Y2));
If D>R*2 then
WriteLn('The cirles do not intersect')
else
If D=R*2 then
WriteLn('The cirles connect, S=0')
else
begin
H:=SQRT(SQR(R)-SQR(D/2));
S:=D*H;
WriteLn('S=',S:10:3);
end;
ReadLn;
END.