IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
  Ответить  Открыть новую тему 
> Как сортировать массивы "of record"?
DarkWishmaster
сообщение 2.04.2011 22:33
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 168
Пол: Мужской

Репутация: -  3  +

Привет. Вопрос:
есть вектор of record:
type MyType=record
              x,y:integer;
           end; //MyType
var a:array[1..255] of MyType;

Скажем я хочу отсортировать этот вектор так: a[i-1].y<=a[i].y<=a[i+1].y;
для этого можно:

          for i:=1 to n-1 do
           for j:=i+1 to n do   
           if a[i].y>a[j].y then begin
              aux:=a[i].y; a[i].y:=a[j].y; a[j].y:=aux;
              aux:=a[i].x; a[i].x:=a[j].x; a[j].x:=aux;
          end;

А что если у меня полей не два, а 100? и я хочу его отсортировать, то мне надо писать 100 линий типа:
 aux:=x; x:=y; y:=aux;

Или есть способ попроще?
Спасибо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 3.04.2011 0:36
Сообщение #2


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +

Цитата(DarkWishmaster @ 2.04.2011 23:33) *

Привет. Вопрос:
есть вектор of record:
type MyType=record
              x,y:integer;
           end; //MyType
var a:array[1..255] of MyType;

Скажем я хочу отсортировать этот вектор так: a[i-1].y<=a[i].y<=a[i+1].y;
для этого можно:

          for i:=1 to n-1 do
           for j:=i+1 to n do   
           if a[i].y>a[j].y then begin
              aux:=a[i].y; a[i].y:=a[j].y; a[j].y:=aux;
              aux:=a[i].x; a[i].x:=a[j].x; a[j].x:=aux;
          end;

А что если у меня полей не два, а 100? и я хочу его отсортировать, то мне надо писать 100 линий типа:
 aux:=x; x:=y; y:=aux;

Или есть способ попроще?
Спасибо.


type
  MyType=record
    x,y: integer;
  end; //MyType

var
  a: array[1..255] of MyType;
  b: MyType;
.....
  for i:=1 to n-1 do
    for j:=i+1 to n do   
      if a[i].y>a[j].y then begin
        b:= a[i];
        a[i]:= a[j];
        a[j]:= b 
      end;


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
DarkWishmaster
сообщение 3.04.2011 0:42
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 168
Пол: Мужской

Репутация: -  3  +

Цитата(Lapp @ 3.04.2011 0:36) *

type
  MyType=record
    x,y: integer;
  end; //MyType

var
  a: array[1..255] of MyType;
  b: MyType;
.....
  for i:=1 to n-1 do
    for j:=i+1 to n do   
      if a[i].y>a[j].y then begin
        b:= a[i];
        a[i]:= a[j];
        a[j]:= b 
      end;



Спасибо! А я aux делал типа integer, вот идиот...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
« Предыдущая тема · Теоретические вопросы · Следующая тема »
 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 29.04.2024 19:44
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"