Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 09.11.2011, 22:26   #1 (permalink)
димон4ик
Member
 
Регистрация: 02.10.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Нужно написать на паскале

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

Старый 09.11.2011, 22:26
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Могу так же посоветовать вам прочитать данные темы

Нужно написать программу расчета вознаграждения
Нужно написать программу в Pascal
Написать программу в Паскале

Старый 10.11.2011, 10:11   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от димон4ик Посмотреть сообщение
Дано 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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:04.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.