 Как сортировать массивы "of record"? |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
  |
| 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;
Или есть способ попроще? Спасибо. |
   |
 
|
| 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;
-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
| 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, вот идиот... |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 0:49 |