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

[0nni]

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

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

Тогда не советую пытаться найти принадлежность точки, если угол между ней и центром окружности не кратен 30 градусам

[alex_fcsm]

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

Тогда не советую пытаться найти принадлежность точки, если угол между ней и центром окружности не кратен 30 градусам

r=sqrt(sqr(x-xp)+sqr(y-yp)) - расстояние между центром окружности и точкой должно быть равно радиусу. Причем здесь градусы?

[0nni]

А да, простите. Я просто чаще работаю с целыми числами и у меня такая маленькая паранойя на тему точности.

[Karlen1990]

а как можно выяаснить эту задачу для 5 точек ?

[addons]

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.

тут же автор кода написал цикл с постусловием, сколько надо столько и вводите точек..
непонятно лишь одно, почему автор поставил знак "=" , ведь нужно чтобы эта точка была внутри окружности, она же не всегда будет на самой дуге. поэтому нужно писать if sqrt(sqr(x-xp)+sqr(y-yp))<=r then writeln('Принадлежит') то есть точка теперь будет внутри. ой чето я не посморел на дату сообщений ))



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.