Написать программу на языке Паскаля . Заданы координаты двух точек. Определите, расположены ли они на одной окружности с центром в начале координат. Результат присвоить символьной переменной. Две точки находятся на одной окружности, если длины радиус-векторов, соединяющих эти точки с началом координат, равны (проверку на равенство осуществить с точностью до е=1.0Е-3)

Предыдущий
вопрос Следующий
вопрос

program CheckPointsOnCircle;
var
x1, y1, x2, y2: real;
radius1, radius2: real;
result: char;
begin
write('Введите координаты первой точки (x1, y1): ');
readln(x1, y1);
write('Введите координаты второй точки (x2, y2): ');
readln(x2, y2);
radius1 := sqrt(sqr(x1) + sqr(y1));
radius2 := sqrt(sqr(x2) + sqr(y2));
if abs(radius1 - radius2) <= 1.0E-3 then
result := 'Точки лежат на одной окружности'
else
result := 'Точки не лежат на одной окружности';
writeln('Результат: ', result);
end.

Программа запрашивает у пользователя координаты двух точек, вычисляет радиус-векторы этих точек относительно начала координат и сравнивает их на равенство с заданной точностью. Результат сравнения записывается в символьную переменную и выводится на экран.