Примечание:
Уравнение окружности имеет вид:
Решение:
Рассмотрим 3 случая:
1)
Точка лежит внутри окружности.
Пусть даны координаты точки x и y.
Если их сумма квадратов не превышает квадрата радиуса, т.е.:
Точка лежит на окружности Если сумма квадратов удовлетворяет уравнению окружности и соблюдается равенство квадрата радиуса, то точка лежит на окружности, т.е. [tex]x^2+y^2=r^2" alt="x^2+y^2, то точка лежит внутри окружности. 2)
Точка лежит на окружности Если сумма квадратов удовлетворяет уравнению окружности и соблюдается равенство квадрата радиуса, то точка лежит на окружности, т.е. [tex]x^2+y^2=r^2" align="absmiddle" class="latex-formula">
3)
Точка лежит вне окуржности
Если точка с координатами A(x;y), где сумма квадратов координаты больше квадрата радиуса, то точка лежит вне окружности, т.е.
r^2" alt="x^2+y^2>r^2" align="absmiddle" class="latex-formula">
Программа:
program zadacha_1;
var x,y,r:real;
begin
writeln('Введите координаты точки');
readln(x,y);
writeln('Введите радиус окружности');
readln(r);
if sqr(x)+sqr(y) else if sqr(x)+sqr(y)=sqr(r) then writeln ('Точка на окружности')
else writeln('Точка вне окружности');
end.