Question

Пожаааалуйста, помогите(только не из интернета брать, там не правильно).Даны две точки А(х1,у1) и В(х2,у2). Составить алгоритм, определяющий, которая из точек находится ближе к точке (2,5).(Паскаль).

Answer 1

const

  y = 5;

  x = 2;

var

  x1,x2,y1,y2:integer;

begin

  write('x1 = ');  readln(x1);

  write('y1 = ');  readln(y1);

  write('x2 = ');  readln(x2);

  write('y2 = ');  readln(y2);

 

  if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   <   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

    writeln('A ближе')

  else

     if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   >   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

       writeln('B ближе')

     else

       writeln('Они на одинковом расстоянии');

readln;

end.

   

Answer 2

Я могу помочь вам с вашим вопросом. Вот алгоритм, который определяет, какая из двух точек А(х1,у1) и В(х2,у2) находится ближе к точке (2,5) на языке Паскаль:

var x1, y1, x2, y2, d1, d2: real;
begin
  // вводим координаты точек А и В
  writeln('Введите координаты точки А (х1, у1):');
  readln(x1, y1);
  writeln('Введите координаты точки В (х2, у2):');
  readln(x2, y2);
  // вычисляем расстояния от точек А и В до точки (2,5) по формуле
  // d = sqrt((x - 2)^2 + (y - 5)^2)
  d1 := sqrt(sqr(x1 - 2) + sqr(y1 - 5));
  d2 := sqrt(sqr(x2 - 2) + sqr(y2 - 5));
  // сравниваем расстояния и выводим результат
  if d1 < d2 then
    writeln('Точка А находится ближе к точке (2,5) чем точка В')
  else if d1 > d2 then
    writeln('Точка В находится ближе к точке (2,5) чем точка А')
  else
    writeln('Точки А и В находятся на одинаковом расстоянии от точки (2,5)');
end.

Надеюсь, это поможет вам. Если у вас есть еще вопросы, я рад помочь.