Вычислить расстояние между точками

Sangeta

Заданы два вектора X и Y длинной по десять элементов. Трактуя их как координаты точек плоскости, вычислить расстояние между ними.Помогите пожалуйста как это сделать
1 ответ

Sangeta

Заданы два вектора X и Y длинной по десять элементов. Трактуя их как координаты точек плоскости, вычислить расстояние между ними.Помогите пожалуйста как это сделать
Program Distance;
uses crt;
const n=10;
var
  x:array[1..n] of real;
  y:array[1..n] of real;
  i:byte;
  dist:real;
BEGIN {Main}
 ClrScr; 
 for i:= 1 to n do
    begin
      write('Input X[',i:2,'] = '); readln(x[i]);
      write('Input Y[',i:2,'] = '); readln(y[i]);
    end;
  for i:= 1 to n-1 do
    begin
      dist:=sqrt(sqr(x[i+1]-x[i])+sqr(y[i+1]-y[i]));
      writeln('Distance between points ',i:2,' and ',(i+1):2,' = ',dist);
    end;
END.{Main}