Question

ДАЮ 50 БАЛЛОВ!!! СРОЧНО ПАСКАЛЬ Вводятся координаты двух точек на плоскости и координаты центра окружности и её радиус `R`. Определить, какая из точек ближе к окружности. Если равно удалены, то любую из этих двух.

Answer 1

type

 ko=record

   x,y:integer;

   s:real;

   end;

 rr=record

   x,y:integer;

   end;

var

 n:array [1..2] of ko;

 r:rr;

 t:real;

 i:integer;

begin

 write('Введите x,y радиуса:'); readln(r.x,r.y);

 write('Радиус:'); readln(t);

 for i:=1 to 2 do

   begin

     write('Введите x,y ',i,'-ой точки:');

     readln(n[i].x,n[i].y);

     n[i].s:=abs(sqrt(sqr(r.x-n[i].x)+sqr(r.y-n[i].y))-t);

     writeln('От ',i,'-ой точки до окружноси: ',n[i].s);

   end;

   

 if n[1].s = n[2].s then

   begin

     writeln('Точки равноудалённые!');

     for i:=1 to 2 do

       writeln('Координаты ',i,'-ой точки:',n[i].x,',',n[i].y);

   end

     else

       if n[1].s < n[2].s then

         writeln('Координаты ближайшей точки к окружности:',n[1].x,',',n[1].y)

           else

             writeln('Координаты ближайшей точки к окружности:',n[2].x,',',n[2].y)      

end.

Если мой ответ помог вам, отметьте его лучшим. Спасибо

Answer 2

Для решения этой задачи вам нужно вычислить расстояние от каждой из двух точек до центра окружности и сравнить их. Формула для вычисления расстояния между двуми точками на плоскости (x1, y1) и (x2, y2) выглядит следующим образом:

\[ d = \sqrt{(x2 - x1)^2 + (y2 - y1)^2} \]

Для вашей задачи, если (x1, y1) и (x2, y2) - координаты двух точек, а (cx, cy) - координаты центра окружности, то расстояние \(d_1\) от первой точки до центра будет:

\[ d_1 = \sqrt{(x_1 - cx)^2 + (y_1 - cy)^2} \]

Аналогично, расстояние \(d_2\) от второй точки до центра:

\[ d_2 = \sqrt{(x_2 - cx)^2 + (y_2 - cy)^2} \]

После этого сравните \(d_1\) и \(d_2\). Если \(d_1 < d_2\), то первая точка ближе к центру окружности. Если \(d_2 < d_1\), то вторая точка ближе. Если \(d_1 = d_2\), то обе точки равноудалены, и можно выбрать любую из них.

Пример кода на языке программирования Python:

import math

def distance(x1, y1, x2, y2):
    return math.sqrt((x2 - x1)2 + (y2 - y1)2)

def closer_point(x1, y1, x2, y2, cx, cy):
    d1 = distance(x1, y1, cx, cy)
    d2 = distance(x2, y2, cx, cy)

if d1 < d2:
        return f"Точка ({x1}, {y1}) ближе к центру окружности."
    elif d2 < d1:
        return f"Точка ({x2}, {y2}) ближе к центру окружности."
    else:
        return "Обе точки равноудалены от центра окружности."

# Пример использования
x1 = float(input("Введите x1: "))
y1 = float(input("Введите y1: "))
x2 = float(input("Введите x2: "))
y2 = float(input("Введите y2: "))
cx = float(input("Введите координату x центра окружности: "))
cy = float(input("Введите координату y центра окружности: "))

result = closer_point(x1, y1, x2, y2, cx, cy)
print(result)

В этом примере функция `closer_point` возвращает сообщение о том, какая из точек ближе к центру окружности.