Question

Определить, лежит ли точка с координатами (X,Y) вне круга радиуса R с центром в точке (0,0) или внутри него. Pascal

Answer 1

Ответ:

var

 x: real;

 y: real;

 r: real;

 equat: real;

begin

 writeln('Введите r');

 readln(r);

 writeln('Введите x');

 readln(x);

 writeln('Введите y');

 readln(y);

 equat:=power(x,2)+power(y,2);

 if equat<=power(r,2) then

   writeln('Точка лежит внутри круга')

 else writeln('Точка лежит вне круга');

end.

Объяснение: