Расстояния от каждой из точек до n-1 других.

@Вовка64 · Регистрация: 11.12.2008

Студворк — интернет-сервис помощи студентам

На плоскости заданы своими координатами n - точек. Создать массив размером n(n-1),
элементами которого являются расстояния от каждой из точек до n-1 других.

@Puporev · 11.12.2008, 22:09

По условию конечно так.

Код

uses crt;
const n=10;
type Tpoint=record
            x,y:real;
            end;
function Dl(a1,b1,a2,b2:real):real;
begin
Dl:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
var t:array[1..n] of TPoint;
    d:array[1..n,1..n]of real;
    i,j:integer;

begin
clrscr;
randomize;
for i:=1 to n do
   begin
     t[i].x:=20*random-9;
     t[i].y:=20*random-9;
   end;
for i:=2 to n do write(i:6);
writeln;
for i:=1 to n do
   begin
    write(i:2);
    for j:=1 to n do
    if i<>j then
       begin
        d[i,j]:=Dl(t[i].x,t[i].y,t[j].x,t[j].y);
        write(d[i,j]:6:2);
      end;
    writeln;
  end;
readln
end.

Но мне больше нравится так.

Код

uses crt;
const n=10;
type Tpoint=record
            x,y:real;
            end;
function Dl(a1,b1,a2,b2:real):real;
begin
Dl:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
var t:array[1..n] of TPoint;
    d:array[1..n,1..n]of real;
    i,j:integer;

begin
clrscr;
randomize;
for i:=1 to n do
   begin
     t[i].x:=20*random-9;
     t[i].y:=20*random-9;
   end;
for i:=1 to n do write(i:6);
writeln;
for i:=1 to n do
   begin
    write(i:2);
    for j:=1 to n do
      begin
        d[i,j]:=Dl(t[i].x,t[i].y,t[j].x,t[j].y);
        write(d[i,j]:6:2);
      end;
    writeln;
  end;
readln
end.

@Вовка64 · 12.12.2008, 16:14 **[ТС]**

спасибо огромное, эта задача решила мою судьбу

@Вовка64 1 / 1 / 0 Регистрация: 11.12.2008 Сообщений: 127
		1
	Расстояния от каждой из точек до n-1 других. 11.12.2008, 19:55. Показов 890. Ответов 2 Метки нет (Все метки) На плоскости заданы своими координатами n - точек. Создать массив размером n(n-1), элементами которого являются расстояния от каждой из точек до n-1 других. 0

@Вовка64 1 / 1 / 0 Регистрация: 11.12.2008 Сообщений: 127
	12.12.2008, 16:14 [ТС]	3
	спасибо огромное, эта задача решила мою судьбу 0

Опции темы