Определить, попадает ли точка с координатами x0 , y0 в круг радиусом r . Присвоить...

Question

Определить, попадает ли точка с координатами x0 , y0 в круг
радиусом r . Присвоить признаку N=1 , если точка находится внутри круга, и
N=0 , если точка вне круга. паскаль

Answer 1

//PascalABC.NET
var
x,y,r:real;
begin
write('Введите координаты точки и радиус круга: ');
readln(x,y,r);
if sqr(x)+sqr(y) <= sqr(r) then<br>writeln('Точка попадает в круг.')
else
writeln('Точка не попадает в круг.');
end.

Comments

//PascalABC.NET
var
x,y,r:real;
N:integer;
begin
write('Введите координаты точки и радиус круга: ');
readln(x,y,r);
if sqr(x)+sqr(y) <= sqr(r) then<br>N:=1;
writeln(N);
end.

---

Спасибо!!!

---

Не за что