определить точка принадлежит окружности

[Karlen1990]

а как можно решать эту задачу для 5-и точек?определять пренадлежат или нет данной окружности. и если не пренадлежат нужно увеличить окружность, чтобы пренадлежал.

[Zer0]

Логика решения несложная - есть центр окружности и радиус (вне зависимости от способа задания окружности их можно найти), ищем расстояние от центра до точек (формула расстояния между двумя точками - школьный курс), если расстояние меньше или равно радиусу - точка входит, иначе нет.
Кстати, окружности или все таки круга? Между понятиями кардинальное отличие

[Utkin]

Судя по описанию задания, речь идет о круге.

[Terrance!]

вот решение для вашей задачки(исходник во вложении)

......
var
  Form1: TForm1;
  p1:tpoint;//центр окружности
  Points:array[1..5]of tpoint;// набор из 5 точек
.....
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
randomize;
//устанавливаем центр окружности
p1.X:=100;
p1.Y:=100;
//расставляем точки случайным образом
for i:=1 to 5 do  begin
Points[i].X:=random(200);
Points[i].Y:=random(200);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var I:integer;
begin
//чертим окружность(например, с радиусом 50)
form1.Canvas.Ellipse(p1.X-50,p1.Y-50,p1.X+50,p1.Y+50);
//для каждой из пяти точек проверяем, если расстояние от точки до центра< 50 то 
//рисуим их зелёным цветом
for i:=1 to 5 do begin
form1.Canvas.Pen.Color:=clblack;
if(sqrt(sqr(Points[i].X-p1.X)+sqr(Points[i].Y-p1.Y))<50)then
form1.Canvas.Pen.Color:=clgreen;
form1.Canvas.Ellipse(Points[i].X-5,Points[i].Y-5,Points[i].X+5,Points[i].Y+5);
end;
end;

P. S. это всего лишь один из вариантов, можно так, а можно иначе

[Utkin]

Чего-то ты не то увеличиваешь . Нужно основной круг, а не точки.

[Terrance!]

случайно написал комент

[Utkin]

Вот самый большой кружок в результате должен стать таким, чтобы все точки в него влазили. А ты только цветом выделяешь.

случайно написал комент

Случайно, не случайно, а уже на него ответил .

[Terrance!]

аааа
ну тогда так )))

var
  Form1: TForm1;
  p1:tpoint;
  Points:array[1..5]of tpoint;
  R:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
R:=50;
randomize;
p1.X:=100;
p1.Y:=100;
for i:=1 to 5 do  begin
Points[i].X:=random(200);
Points[i].Y:=random(200);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var I:integer;
begin
for i:=1 to 5 do  begin
if not(sqrt(sqr(Points[i].X-p1.X)+sqr(Points[i].Y-p1.Y))<Round(R/2))
then R:=r+1;
end;

form1.Canvas.Ellipse(p1.X-Round(R/2),p1.Y-Round(R/2),p1.X+Round(R/2),p1.Y+Round(R/2));
for i:=1 to 5 do begin
form1.Canvas.Ellipse(Points[i].X-5,Points[i].Y-5,Points[i].X+5,Points[i].Y+5);
end;
end;

[DiemonStar]

Кстати, окружности или все таки круга? Между понятиями кардинальное отличие

В алгоритме решения задачи не столь принципиальное: в случае круга в проверке принадлежности будет ">=" вместо "="

а как можно решать эту задачу для 5-и точек?определять пренадлежат или нет данной окружности. и если не пренадлежат нужно увеличить окружность, чтобы пренадлежал.

И с каким шагом увеличивать окружность? с какой точностью производить сравнение (особенно актуально именно для окружности, а не круга)?
Если же перевести координаты точек в полярную систему, то задача практически теряет смысл)

[Utkin]

И с каким шагом увеличивать окружность?

Аналогово . То есть так чтобы задача была решено за 1 шаг.

Если же перевести координаты точек в полярную систему

На фига?