Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 75
1

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

16.03.2018, 18:19. Просмотров 2029. Ответов 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
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
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
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
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
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
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
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
26.03.2018, 16:25 8
МарияСтрук, У нас на форуме разрешено писать на русском и английском языках.
0
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 75
26.03.2018, 16:39  [ТС] 9
Простите
0
Модератор
1608 / 1067 / 481
Регистрация: 17.07.2012
Сообщений: 5,282
26.03.2018, 16:41 10
Лучший ответ Сообщение было отмечено МарияСтрук как решение

Решение

Первой строкой добавить
Pascal
1
const n = 5; // можно и другое число написать
1
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
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® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.