Главная

Расстояние между точками в n-мерном пространстве

ср, 12/25/2013 - 10:42 — tech
Задача: 

При заданных координатах A1, A2, ..., An одной точки и координатах B1, B2, ..., Bn другой точки n-мерного пространства. Найти расстояние между ними по формуле sqrt(sqr(A1-B1) + ... + sqr(An-Bn)).

Описание переменных: 
  • a - коордитаны первой точки;
  • b - координаты второй точки;
  • n - количество измерений пространства;
  • sqr_sum - сумма квадратов разности между соответствующими координатами точек.
Программа на языке Паскаль:  

var 
        n, i:byte;
        a, b: array[1..10] of integer;
        sqr_sum: integer;
begin
        n := 0;
        while (n > 10) or (n ) do begin
                write('n = '); readln(n);
        end;
        sqr_sum := 0;
        for i:=1 to n do begin
                write('a',i,' = '); readln(a[i]);
                write('b',i,' = '); readln(b[i]);
                sqr_sum := sqr_sum + sqr(a[i] - b[i])
        end;
        writeln(sqrt(sqr_sum):10:3);
end.

Пример выполнения:

n = 2
a1 = 2
b1 = 0
a2 = 1
b2 = 0
     2.236
Примечания: 

По смыслу лучше сначала запросить все координаты первой точки, а потом второй.

  • Добавить комментарий

Комментарии

ср, 05/14/2014 - 00:54 — Гость

Вычислить среднее

Вычислить среднее арифметическое отрицательных и среднее арифметическое положительных элементов массива x.Элементы массива вычисляются по формуле Xi=((i-10)^1/3)*cos(i),где i=1,2..20

  • ответить