0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 75
1

Даны координаты n точек. Составьте программу для вычисления расстояния между данными точками

16.03.2018, 18:19. Показов 3133. Ответов 10
Метки нет (Все метки)

Даны координаты n точек. Составьте программу для вычисления расстояния между данными точками.
Примечание: Расстояние между i-той и j-той точками вычисляется по формуле
Lij=√(xi-xj)2+(yi-yj)2
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2018, 18:19
Ответы с готовыми решениями:

Даны точки в n-мерном пространстве Х=(x1,x2,...,xn) , Y=(y1,y2,...,yn) Написать программу нахождения расстояния между этими точками и вектора XY.
Массивы. Даны точки в n-мерном пространстве Х=(x1,x2,...,xn) , Y=(y1,y2,...,yn) Написать...

Вычислить целую часть расстояния между данными точками
Даны четыре натуральных числа Х1 , у1 и х2 у2 которые являются координатами двух точек на плоскости...

Программа вычисления расстояния между двумя точками с заданными координатами
Напишите программу вычисления расстояния между двумя точками с заданными координатами X1,Y1, X2,Y2,...

Описать процедуру Dist...найти расстояния от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C.
Описать процедуру Dist(Px,Py,Ax,Ay,Bx,By,D), находящую расстояние D от точки P до прямой AB по...

10
Почетный модератор
64227 / 47529 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
16.03.2018, 18:46 2
объявите 2 массива, x,y. Заполните их и считайте расстояния
Pascal
1
2
for i:=1 to n-1 do
for j:=i+1 to n do
0
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 75
24.03.2018, 14:35  [ТС] 3
А як их обьявить?
0
Почетный модератор
64227 / 47529 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
24.03.2018, 14:39 4
Pascal
1
var x,y:array[1..50] of real;
0
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 75
24.03.2018, 14:51  [ТС] 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program  TabL;
CONST 
var
x,y:array[1..50] of ReaL;
i,j:integer;
begin 
for i:=l to n-1  do 
     for j:=1 to n do 
B[i,j]:=sqrt(x2-x1)+sqrt(y-y1);
 
for i:=l to n do 
     Begin
     for j:=l to m do Write (B[i,j]:6:2);
      writeln;
     end;
END.
Так?
0
Почетный модератор
64227 / 47529 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
24.03.2018, 15:27 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var x,y:array[1..n] of reaL;
    L:real;
    i,j,k:integer;
begin
randomize;
writeln('Координаты точек');
for i:=1 to n do
 begin
  x[i]:=-5+10*random;
  y[i]:=-5+10*random;
  write(i:2,'(',x[i]:5:2,';',y[i]:5:2,')');
  if i mod 5=0 then writeln;
 end;
writeln;
writeln('Расстояния между точками');
k:=0;
for i:=1 to n-1  do
for j:=i+1 to n do
 begin
  L:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
  write(i:2,'-',j:2,' = ',L:5:2,'  ');
  k:=k+1;
  if k mod 5=0 then writeln;
 end;
end.
0
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 75
26.03.2018, 16:22  [ТС] 7
Всі n зробилися червоними.
0
Почетный модератор
64227 / 47529 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
26.03.2018, 16:25 8
МарияСтрук, У нас на форуме разрешено писать на русском и английском языках.
0
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 75
26.03.2018, 16:39  [ТС] 9
Простите
0
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
26.03.2018, 16:41 10
Лучший ответ Сообщение было отмечено МарияСтрук как решение

Решение

Первой строкой добавить
Pascal
1
const n = 5; // можно и другое число написать
1
Почетный модератор
64227 / 47529 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
26.03.2018, 16:44 11
Ах, да не скопировал у себя первую строчку. У меня было вроде
Pascal
1
const n=10;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2018, 16:44
Помогаю со студенческими работами здесь

Разработать программу вычисления расстояния между заданными множествами
Если кто может то был бы рад если б написали код , я вообще плох в етих темах, зарание спасибо....

Составить программу определения максимального расстояния между двумя точками из некоторой совокупности точек трехмерного пространства
Составить программу определения максимального расстояния между двумя точками из некоторой...

Функция вычисления расстояния между двумя точками на плоскости
Составить функцию вычисления расстояния между двумя точками на плоскости. С ее помощью вычислить...

Составьте программу для вычисления координат точек пересечения 2 окружностей
1. Составьте программу для вычисления координат точек пересечения 2 окружностей:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru