Подпрограммы

[Neyrone]

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

[Utkin]

Язык программирования? Бейсик?

[Neyrone]

Язык программирования паскаль,помогите плиз,темку ап)

[IT-man]

Создать массив

может все таки матрицу

[Alex_FF]

const
  Len = 100;
  Source = 'input.txt';
  Target = 'output.txt';

type
  Point = record
    X, Y: Real;
  end;

var
  I, J, N: Integer;
  R: Array[1..Len, 1..Len - 1] of Double;
  a: Array[1..Len] of Point;

begin
  Assign(Input, Source);
  Reset(Input);
  Assign(Output, Target);
  Rewrite(Output);
  ReadLn(N);
  for I := 1 to N do
    ReadLn(a[I].X, a[I].Y);
  for I := 1 to N do
    for J := 1 to N do
      if I = J then Continue
      else
        R[I, J] := Sqrt(Sqr(a[J].X - a[I].X) + Sqr(a[J].Y - a[I].Y));
  for I := 1 to N do
  begin
    for J := 1 to N do
      if I = J then Continue
      else
        Write(R[I, J]:4:2, ' ');
    WriteLn;
  end
end.

Sample:

input.txt:

4
1 2
3 4
5 6
7 8

output.txt:

2.83 5.66 8.49
2.83 2.83 5.66
5.66 2.83 2.83
8.49 5.66 2.83

[IT-man]

ну а вот мой вариантик с подпрограммами

 type tpoint = record
   x:Integer;
   y:Integer;
  end;
  var
 a:array[1..100] of tpoint;
 b:array[1..100,1..100] of Real;
 i,j,n:Integer;
 function dl(var t1,t2:tpoint):real;
  begin
    dl:=Sqrt(Sqr(t1.x-t2.x)+Sqr(t1.y-t2.y));
  end;
begin
  Randomize;
Writeln('n=');
Readln(n);
 for i:=1 to n do begin
   a[i].x:=Random(10);
   a[i].y:=random(10);
   Writeln(a[i].x:5,a[i].y:5);
    end;

  Writeln('------------------');
  for i:=1 to n do begin
    for j:=1 to n do begin
   b[i,j]:=dl(a[i],a[j]);
   write(b[i,j]:6:2);
   end;
   Writeln;
   end;
   readln;
end.

Правда матрица получилась n*n,Но я думаю так нагляднее

[Neyrone]

Alex_FF спасибо огромное,но у меня 2 вопросика 1)Нельзя ли как то без txt,а то не поверят что я написал 2) С txt...создаю на рабочем столе 2 файлика,в них прописываю,переименовываю...запуска ю дельфи,пишу код...нажимаю F9 он входит в чёрную панель и резко вылетает...

[Neyrone]

IT-man Гуд всё работает спасибо тебе =)

[Alex_FF]

Neyrone, файлы должны находится в той же папке, что и сама программа. Или пропиши полный путь в Source и Target.