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

@МарияСтрук · Регистрация: 09.03.2018

Даны координаты n точек. Составьте программу для вычисления расстояния между данными точками.
Примечание: Расстояние между i-той и j-той точками вычисляется по формуле
L_ij=√(xi-xj)²+(yi-yj)²

@Puporev · 16.03.2018, 18:46

объявите 2 массива, x,y. Заполните их и считайте расстояния

Pascal

1 2	for i:=1 to n-1 do for j:=i+1 to n do

@МарияСтрук · 24.03.2018, 14:35 **[ТС]**

А як их обьявить?

@Puporev · 24.03.2018, 14:39

Pascal

1	var x,y:array[1..50] of real;

@МарияСтрук · 24.03.2018, 14:51 **[ТС]**

Pascal

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.

Так?

@Puporev · 24.03.2018, 15:27

Pascal

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.

@МарияСтрук · 26.03.2018, 16:22 **[ТС]**

Всі n зробилися червоними.

@Puporev · 26.03.2018, 16:25

МарияСтрук, У нас на форуме разрешено писать на русском и английском языках.

@МарияСтрук · 26.03.2018, 16:39 **[ТС]**

Простите

Новичок · 26.03.2018, 16:41

Первой строкой добавить

Pascal

1	const n = 5; // можно и другое число написать

@Puporev · 26.03.2018, 16:44

Ах, да не скопировал у себя первую строчку. У меня было вроде

Pascal

1	const n=10;

@МарияСтрук 0 / 0 / 1 Регистрация: 09.03.2018 Сообщений: 75
		1
	Даны координаты n точек. Составьте программу для вычисления расстояния между данными точками 16.03.2018, 18:19. Просмотров 2029. Ответов 10 Метки нет (Все метки) Даны координаты n точек. Составьте программу для вычисления расстояния между данными точками. Примечание: Расстояние между i-той и j-той точками вычисляется по формуле L_ij=√(xi-xj)²+(yi-yj)² 0

@МарияСтрук 0 / 0 / 1 Регистрация: 09.03.2018 Сообщений: 75
	24.03.2018, 14:35 [ТС]	3
	А як их обьявить? 0

@МарияСтрук 0 / 0 / 1 Регистрация: 09.03.2018 Сообщений: 75
	26.03.2018, 16:22 [ТС]	7
	Всі n зробилися червоними. 0

@Puporev Модератор 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

Опции темы

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

Решение