Ввести координаты точки, определить, лежит ли она на окружности радиуса R - Turbo Pascal (248471)

Формулировка задачи:

На плоскости расположена окружность радиуса R с цен¬тром в начале координат. Ввести заданные координаты точки, определить, лежит ли она на окружности. Решить задачу при R = 2 для точек с координатами (0, 2), (-1.5, 0.7), (1, 1), (3, 0).

Решение задачи: «Ввести координаты точки, определить, лежит ли она на окружности радиуса R»

Листинг программы

{$N+}
const r=2.0;
var x, y, e: Single;
begin
  e:=1; repeat y:=Sqr(r)+e/2; if y=Sqr(r) then Break; e:=e/2; until False;
  x:=SqRt(2); y:=SqRt(2); WriteLn(Abs(Sqr(x)+Sqr(y)-Sqr(r))<=e);
end.

Объяснение кода листинга программы

Введены константа радиуса окружности R и переменные x, y, e типа Single.
Запускается цикл, который будет выполняться до тех пор, пока значение y не станет равным квадрату радиуса окружности.
В каждой итерации цикла значение y обновляется путем деления нового значения e на 2.
Если значение y становится равным квадрату радиуса окружности, то цикл прерывается.
Значения x и y обновляются путем извлечения квадратного корня из 2.
Выводится сообщение, которое говорит о том, лежит ли точка с координатами x и y на окружности радиуса R. При этом значение e используется для проверки, является ли точка достаточно близкой к окружности, чтобы ее можно было считать лежащей на ней.