Технический форум - Нужно написать на паскале

Цитата:

Сообщение от димон4ик (Сообщение 615089)

Дано m точек в n-мерном пространстве. Упорядочить точки по неубыванию их расстояний до начала координат

Димончик, Ваши воистину изысканные манеры просто-таки вызывают восхищение. А потому - пожалуйста (хотя зачем бы в казарме n-мерные пространства и Паскаль - не ведаю):

Код:

CONST

 n=10;

 m=12;

VAR

 X:Array[1..m,1..n] of Real;

 R:Array[1..m] of Real;

 i,j:Integer;

 Dummy:Real;



BEGIN

 For i:=1 to m do

  begin

   Writeln('Point N',i);

   R[i]:=0;

   for j:=1 to n do

    begin

     write('X[',j:2,']= ');

     readln(X[i,j]);

     R[i]:=R[i]+SQR(X[i,j]);

    end;

   R[i]:=SQRT(R[i]);

   writeln;

  end;



 For i:=1 to m do

  For j:=1 to m-i do

   If R[j]>R[j+1] then

    begin

     Dummy:=R[j];

     R[j]:=R[j+1];

     R[j+1]:=Dummy;

    end;



 For i:=1 to m do write(R[i]:8:2);

 Readln;

END.