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

Задача

При заданных координатах 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 < 1) 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

Примечания: 

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

 

Тема

Одномерные массивы

Уровень

Простые задачи