Пожалуйста помогите, ** паскале В одномерном массиве с четным количеством элементов (2N)...

Question

Пожалуйста помогите, на паскале
В одномерном массиве с четным количеством элементов (2N) находятся ко-
ординаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, x2, y2,
x3, y3 и т.д. Определить точку, расстояние от которой до начала координат является
наибольшим.

Answer 1

Const
  n=10;
var
  xy:array[1..2*n] of real;
  Lmax,L:real;
  i,imax:integer;
begin
  Randomize;
  Writeln('Координаты точек');
  Lmax:=0;
  for i:=1 to n do
  begin
    xy[2*i-1]:=101*Random-50; { случайное число на [-50..50] }
    Write(i:2,xy[2*i-1]:8:3);
    xy[2*i]:=101*Random-50;
    Writeln(xy[2*i]:8:3);
    L:=sqr(xy[2*i-1])+sqr(xy[2*i]);
    if Lmax  end;
  Writeln('Наиболее удалена от начала координат');
  Writeln('точка A[',imax,'] (',xy[2*imax-1]:0:3,',',xy[2*imax]:0:3,'),');
  Writeln('расстояние составляет ',sqrt(Lmax):0:3)
end.

Тестовое решение:
Координаты точек
 1  -7.758 -12.799
 2  14.569  -5.722
 3 -20.827   2.768
 4  16.387  35.180
 5  43.135 -17.903
 6  42.006  11.257
 7  40.026  -4.777
 8 -32.236  33.900
 9 -13.453  45.271
10   8.171   7.245
Наиболее удалена от начала координат
точка A[9] (-13.453,45.271),
расстояние составляет 47.227

Comments

спасибо, а ты какую формулу исп. ?

---

Плохо видно? Стандартную. Сумма квадратов координат, квадратный корень извлекать при поиске максимума нет надобности: если максимально подкоренное выражение, то максимален и сам корень.