Определить ли принадлежит ли точка кругу с заданным радиусом — Pascal(Паскаль)

var r,x,y:real;
    f1,f2,f3,f4:boolean;
begin
repeat
write('Введите радиус r=');
readln(r);
until r>0;
writeln('Введите координаты точки');
readln(x,y);
f1:=sqr(x+r)+y*y<=r*r;
f2:=x*x+y*y>=r*r;
f3:=x*x+y*y<=r*r;
f4:=sqr(x-r)+y*y<=r*r;
if(f1 and f2)or(f4 and f2)
or(f3 and not f1 and not f4)
then write('Принадлежит') else write('Не принадлежит');
end.

Leave a Comment

2 + 2 =