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


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

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

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

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

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

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

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

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