Delphi

На плоскости задана прямоугольная система координат с осями Х и У. Составить программу которая вводит координаты точки (х, у) и сообщает принадлежит ли эта точка кругу с центром в начале координат и радиусом r или лежит на границу его окружностию. Уравнение окружности - r^2-x^2+y^2

Question

Информатика

Настя

16 января, 05:15

Delphi

На плоскости задана прямоугольная система координат с осями Х и У. Составить программу которая вводит координаты точки (х, у) и сообщает принадлежит ли эта точка кругу с центром в начале координат и радиусом r или лежит на границу его окружностию. Уравнение окружности - r^2-x^2+y^2

+1

Ответы (1)

Знаете ответ на вопрос?

Муша · Answer 1

Var x1, x2, y1, y2, r1, r2, r:real; beginread (x1, y1, r1) ; read (x2, y2) ; r:=sqrt ((x2-x1) * (x2-x1) + (y2-y1) * (y2-y1)) ; if (r1>=r) then write ('YES') else write ('NO') end.