Написать алгоритм и программу в паскале дана окружность радиуса R с центром в начале координат и точка А(ха, уа). Определить как точка расположена по отношению к окружности (лежит на окружности, внутри окружности, за окружностью)

Предыдущий
вопрос Следующий
вопрос

program CheckPointPosition;
var
R, xa, ya, distance: real;
begin
writeln('Enter the radius of the circle:');
readln(R);
writeln('Enter the coordinates of point A (x, y):');
readln(xa, ya);
distance := sqrt(sqr(xa) + sqr(ya));
if distance = R then
writeln('Point A is located on the circle.');
else if distance < R then
writeln('Point A is located inside the circle.');
else
writeln('Point A is located outside the circle.');
end.

Программа запрашивает радиус окружности и координаты точки A. Затем вычисляет расстояние от начала координат до точки A и сравнивает его с радиусом окружности. Если расстояние равно радиусу, то точка лежит на окружности. Если расстояние меньше радиуса, то точка находится внутри окружности. Если расстояние больше радиуса, то точка находится за окружностью.