Определить принадлежность точек к окружности, помогите составить блок схему :)

[miniZadrot9000]

Дана произвольная окружность и несколько точек, нужно составить блок схемму с проверкой условия на принадлежность точек к этой окружности
Кто может помогите )

[0nni]

Теорему Пифагора знаешь?

[miniZadrot9000]

Да что там сумма квадратов катетов ровна квадрату гиппотенузе так кажется

[0nni]

x0, x0 - координаты центра окружности.
xp, yp - координаты точки
расстояние от окружности до точки это гипотенуза, катеты это xp-x0 и yp-y0.
Соответственно если это расстояние меньше радиуса окружности - точка внутри, равно - на границе, больше - за пределами.

[PARNISHA]

Решал эту задачу ооочень давно...можно и без теоремы пифагора.
Если одна из координат больше радиуса, значит точка не принадлежит окружности.

[alex_fcsm]

uses crt;
var x,y,xp,yp,r:real;
begin
clrscr;
writeln('Введите координаты центра окружности и радиус');
readln(x,y,r);
repeat
clrscr;
writeln('Окружность с центром в (',x:3:3,',',y:3:3,') и радиусом ',r:3:3);
Writeln('Введите координаты точки');
readln(xp,yp);
if r=sqrt(sqr(x-xp)+sqr(y-yp)) then writeln('Принадлежит')
   else writeln('Не принадлежит');
 writeln('Продолжиьт(y/n)?');
until readkey='n';
end.

[0nni]

Сообщение от PARNISHA

Если одна из координат больше радиуса, значит точка не принадлежит окружности.

Это уже квадрат а не круг.

alex_fcsm, тю, яж хотел дать человеку возможность подумать
И кстати у вас ошибка в коде, или это умышленно?

[alex_fcsm]

Где ошибка?

[0nni]

if r=sqrt(sqr(x-xp)+sqr(y-yp)) then

Код будет верно выполняться только если точка лежит на границе окружности, а не внутри.

[alex_fcsm]

Сообщение от 0nni

if r=sqrt(sqr(x-xp)+sqr(y-yp)) then

Код будет верно выполняться только если точка лежит на границе окружности, а не внутри.

Это не ошибка:Если внутри, то это будет круг поэтому пусть автор темы решает что ему нужно