Соединим заданные точки и получим отрезок, длина которого равна радиусу окружности. Длина этого отрезка вычисляется по известному выражению r² = (x₂-x₁)²+(y₂-y₁)²
Затем находим площадь круга S=πr² и длину окружности C=2πr
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (x1,y1):=ReadReal2('Координаты центра x1 и y1:');
var (x2,y2):=ReadReal2('Координаты точки на окружности x2 и y2:');
var r:=Sqrt(Sqr(x2-x1)+Sqr(y2-y1));
var (S,C):=(Pi*r*r,2*Pi*r);
Writeln('S=',S,', C=',C)
end.
Пример
Координаты центра x1 и y1: 3 3.5
Координаты точки на окружности x2 и y2: 1.7 -2.8
S=129.999104005546, C=40.4180271718983