Задана точка M с координатами (x,y). Определить ее положение относительно окружности...

Question

Задана точка M с координатами (x,y). Определить ее положение относительно окружности радиуса R с центром в начале осей координат.

Answer 1

Var x,y,r:real;
begin
write('x, y: ');
readln(x,y);
write('R = ');
readln(r);
if x*x+y*y>r*r
 then writeln('точка находится внутри круга')
 else if x*x+y*y=r*r
        then writeln('Точка находится на окружности')
        else writeln('Точка находится вне круга');
end.

Пример:
x, y: 3 4
R = 5
Точка находится на окружности