[chainik]

Если начало отрезка и его конец лежат внутри круга то
любая точка отрезка лежит внутри круга.


{-------------------------------------------------------------
функция возвращает True если отрезок внутри круга включ границу
иначе-false
Входные данные- коорд начала отрезка, его конца и радиус окруж
Начало коорд- в центре круга!
-------------------------------------------------------------}
function LinInCircle(X1,Y1,X2,Y2,R:extended):boolean;
begin
Result:=(sqrt(X1*X1+Y1*Y1) <=R) and (sqrt(X2*X2+Y2*Y2) <=R)
end;