Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сортировка 5ти пар чисел [D6, Win95/98]


XHelp ©   (2002-09-13 17:30:00) 

YO!
Народ! У меня есть такая трабла...
Есть 5 масивов
var
a1,a2,a3,a4,ps: array [0..6000] of Extended;
Как мона их "акуратно" вывести в отсортированом виде...
Нуна отсортировать их по ps (по возрастанию и с сохранением пропорций... тоесть что бы остовалось a1[123] - a2[123] - a3[123] - a4[123] - ps[123]) и вывести например в какой нить таблице... с возможность сохранить в файл (тот же .xls)!

ПЛИЗ! Помогите!


XHelp   (2002-09-14 13:19:00) [1]

Хорошо, а как сортировать с помощью Excelя?


XHelp   (2002-09-13 23:36:00) [2]

Нуда... теперь остаеться научиться сортировать массив ps...
8)))


TTCustomDelphiMaster   (2002-09-13 19:20:00) [3]

Если вы будете сохранять данные в формате Excel, то логично воспользоваться этой программой и для сортировки массивов.

Если же вы будете сортировать массивы самостоятельно, то можно ускорить эту процедуру. Для этого создайте массив
idx: array [0..6000] of integer;
заполните его последовательностью от 0 до 6000.
При сортировке массива ps делайте те же перестановки в массиве idx, а массивы a1-a4 пока не трогайте. По окончании сортировки в массиве idx будут содержаться индексы для быстрой сортировки массивов a1-a4.


AFrolov   (2002-09-13 17:57:00) [4]

Или сделай массив из массивов и сортируй его по нужному элементу в массиве-элементу или сделай массив из записей и сортируй эти записи по нужному тебе полю


XHelp   (2002-09-13 17:48:00) [5]

Например:
Такие цифры:

ps - a1 - a2 - a3 - a4
23 - 12 - 75 - 43 - 91
321 - 43 - 212 - 754 - 32
0 - 65 - 7423 - 498 - 432

нуно поставить в таком порядке:

0 - 65 - 7423 - 498 - 432
23 - 12 - 75 - 43 - 91
321 - 43 - 212 - 754 - 32


AFrolov   (2002-09-13 17:43:00) [6]

Поищи QuickSort в yandex"е. Только переставлять надо элементы не в 1 массиве а сразу во всех.


Наверх

Титульная страница Поиск, карта сайта Написать письмо