Question

Центр окружности радиуса R находится в точке (0,0). Лежит ли точка с координатами x,y внутри, на границе или вне этой окружности. Написать программу в паскале.

Answer 1

Решение:

uses crt;  

var x,y,r: real;  

begin  

clrscr;

write ('Введите x,y,r через пробел:');

readln (x,y,r);

if(sqr(x)+sqr(y))=sqr(r) then

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

if(sqr(x)+sqr(y))>sqr(r) then

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

if(sqr(x)+sqr(y))<sqr(r) then

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

end.

Answer 2

Вот пример программы на Pascal, которая проверяет, лежит ли точка с координатами (x, y) внутри, на границе или вне окружности радиуса R с центром в точке (0, 0):

pascalCopy code
program CheckPointInCircle;

var
  x, y, R: real;

begin
  writeln('Введите координату x:');
  readln(x);
  
  writeln('Введите координату y:');
  readln(y);
  
  writeln('Введите радиус окружности R:');
  readln(R);
  
  // Вычисляем расстояние от центра (0, 0) до точки (x, y)
  // используя теорему Пифагора
  var distance := sqrt(x*x + y*y);
  
  // Сравниваем расстояние с радиусом окружности
  if distance < R then
    writeln('Точка находится внутри окружности.')
  else if distance = R then
    writeln('Точка находится на границе окружности.')
  else
    writeln('Точка находится вне окружности.');
end.

Эта программа сначала запрашивает у пользователя координаты точки (x, y) и радиус окружности R, а затем вычисляет расстояние от центра (0, 0) до этой точки, используя теорему Пифагора. Затем программа сравнивает расстояние с радиусом окружности и выводит соответствующее сообщение о положении точки относительно окружности.