Даны координаты точки на плоскости. Известно, что окружность радиусом Р центром совпадает с началом координат. Определить, лежит ли данная точка на окружности или же вне её.
Var x,y,p,r:real; begin writeln('x, y:'); readln(x,y); r:=x*x+y*y; write('p = '); readln(p); if r=p*p then writeln('Точка лежит на окружности') else if r=p*p then write('Точка лежит вне окружности'); end.
Answers & Comments
Verified answer
Var x,y,p,r:real;begin
writeln('x, y:');
readln(x,y);
r:=x*x+y*y;
write('p = '); readln(p);
if r=p*p
then writeln('Точка лежит на окружности')
else if r=p*p then write('Точка лежит вне окружности');
end.
Пример:
x, y:
3 4
p = 5
Точка лежит на окружности