Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

Сортировка 5ти пар чисел   Найти похожие ветки 

 
XHelp   (2002-09-13 17:30) [0]

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)!

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


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

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


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

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

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:57) [3]

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


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

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

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


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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2002.09.26;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.007 c
1-85507
Pavel_s
2002-09-17 09:31
2002.09.26
TListView


1-85483
Oleon
2002-09-16 15:50
2002.09.26
Здраствуйте. Помогите справиться с ошибкой, пожалуйста.


1-85529
Демонов Е.В.
2002-09-13 13:26
2002.09.26
DragAllowFiles ???????????


14-85689
niko45
2002-09-01 20:32
2002.09.26
Реклама в софте.


1-85548
ЮРИЙ_К
2002-09-12 10:21
2002.09.26
Формирование документа по шаблону форы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский