Question

Составьте программы на языке Паскаль, используя условный оператор.
Запишите программу определения принадлежности точки(x, y) кругу

​

Answer 1

Вводится сначала радиус круга, потом координаты икс и игрек.

Эта точка проверяется на попадание в круг радиусом r,  с центром в начале координат. Если нужен круг не в начале координат, надо добавить координаты его центра x0, y0  (и тоже их запрашивать вместе с радиусом). Потом эти координаты использовать как смещения по икс и игрек в неравенстве.

Неравенство получится такое:  (x-x0)*(x-x0)+(y-y0)*(y-y0)<=r*r

var

x,y,r :real;

begin

write('r= ');

read (r);

write('x= ');

read (x);

write('y= ');

read (y);

if x*x+y*y<=r*r

then write('принадлежит')

else write('не принадлежит');

end.