Проверка принадлежности точки кругу, Заданы координаты двух точек и окружность Опции

[goos23]

Заданы координаты двух точек р=(р1;р2), F=(f1;f2) и окружность радиуса r с координатой центра (a;b). Проверить, сколько точек( нуль, одна или две) принадлежит внутренности окружности.Проверку принадлежности точки кругу оформить в виде подпрограммы.


помогите плиз очень надо

Сообщение отредактировано: Lapp - 27.02.2012 7:35

[Lapp]

Вот тебе функция, проверяющая принадлежность точки кругу (внутренности).

function PointInCircle(x,y,a,b,r: double): boolean;
begin
  PointInCircle:= Sqrt(Sqr(x-a)+Sqr(y-b)) < r
end;

Попробуй ее использовать.

P.S.
исправил ошибку

Сообщение отредактировано: Lapp - 28.02.2012 2:54

[Игорь]

function PointInCircle(x,y,a,b,r: double): double;

Не double, а boolean, а то вдруг чего...

[Lapp]

Не double, а boolean, а то вдруг чего...

Точно! )) Спасибо, +1
Сейчас исправлю..