Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат — Pascal(Паскаль)

const
  R = 5; { радиус окружности }
  dp = 0.5; { погрешность }

var
  ax, ay, bx, by, ox, oy: real; { точки А Б и Начало координат 0(0,0) }
  AO, BO: real; { Длина отрезков AO и BO }

function Long(x, y: real): real;
begin
  Long := sqrt(sqr(abs(x)) + sqr(abs(y)));
end;

begin
  { определим координаты точек }
  ax := -5;
  ay := 0;
  bx := 3.6;
  by := -2.5;
  { начало координат }
  ox := 0;
  oy := 0;
  { находим длину отрезков AO и BO }
  AO := Long(ax, ay);
  BO := Long(bx, by);
  Writeln('Длина отрезка AO = ', AO);
  Writeln('Длина отрезка BO = ', BO);
  if abs(AO - R) <= dp then
    Writeln('+AO лежит на окружности')
  else
    Writeln('-AO не лежит на окружности');
  if abs(BO - R) <= dp then
    Writeln('+BO лежит на окружности')
  else
    Writeln('-BO не лежит на окружности');
  readln;

end.

Leave a Comment