Массив записей

[crancv]

Доброе время.
Есть массив записей :

type Resurses=record
Index:byte;
Kol_vo:uint64;
end;

Massive:array[0..255] of Resurses;

Index - содержат значения от 0 до 255; Допустим это ASCII коды.
Kol_vo - содержат различные значения от 1000 до 10000 обозначающие какое количество соответствующих ASCII кодов содержится в файле ;

Как отсортировать массив (значения Kol_vo) , чтобы значения массива расположились в порядке убывания.
!!!!! Но таким образом, чтобы значения элементов Index тоже отсортировались в соответствии с элементами Kol_vo. !!!!!

Чтобы
было так:
Index Kol_vo
0 15
1 12
2 13
3 20
4 22
5 11

Стало так:
Index Kol_vo
4 22
3 20
0 15
2 13
1 12
5 11

[Streletz]

Index - поле записи. Если сортируете массив по любому полю значения другого поля поменяют свои места вместе с записями, к которым они относятся.
То есть если Вы отсортируете массив по полю Kol_vo, то нужный результат должен быть достигнут без применения дополнительных операций.

[crancv]

Хорошо, спасибо.Экспериментирую.
Подскажите, пожалуйста, как теперь записать этот массив записей в текстовый файл по убыванию значений Kol_vo.
Таким образом, чтобы сначала слева стояло значение поля Index, а потом, через табуляцию значение поля Kol_vo.

И будьте любезны, как программно высчитать величину энтропии ?

[Streletz]

Подскажите, пожалуйста, как теперь записать этот массив записей в текстовый файл по убыванию значений Kol_vo.

Если отсортировали массив по убыванию, то последовательно обходите массив и пишите в файл строки вида Index Kol_vo. Между значениями полей вставляйте символ табуляции.
В помощь:
Работа с текстовыми файлами

как программно высчитать величину энтропии

Вот пример.

[crancv]

Спасибо. Суть проблемы в том, что при записи в файл при помощи
for i:=0 to 255 do массив в самом файле оказывается сортированным по полю Index,
т.е. не так как надо. Может посоветуете каким циклом воспользоваться ?

[Streletz]

Суть проблемы в том, что при записи в файл при помощи
for i:=0 to 255 do массив в самом файле оказывается сортированным по полю Index т.е. не так как надо.

Скорее всего, Вы делаете перебор элементов в массиве именно по полю Index, а не по номеру элемента. Обращайтесь к номеру элемента в массиве, а не к полю записи.

[crancv]

Спасибо, с сортировкой удалось справиться. Но...
Получается что при сортировке записи её поля сортируются независимо друг от друга ???
Вот часть кода :

uses Utils,Crt;
type Resurses=record
Index:byte;
Kol_vo:uint64;
end;
Massive:array[0..255] of Resurses;

Сортировка :
//Пробуем сортировать массив
for i:=0 to 254 do
for j:=i+1 to 255 do
if (Massive[j].Kol_vo>Massive[i].Kol_vo) then
begin
tmp:=Massive[i].Kol_vo;
Massive[i].Kol_vo:=Massive[j].Kol_vo;
Massive[j].Kol_vo:=tmp;
//Добавлен код для сортировки номеров Index.
tmp:=Massive[i].Index;
Massive[i].Index:=Massive[j].Index;
Massive[j].Index:=tmp;
end;

До тех пор пока не добавил сортировку поля Index в файл записывалось совсем не то что надо.
А это фрагмент записи в файл :

for i:=0 to 255 do
writeln(Output,Massive[i].Index,chr(9),Massive[i].Kol_vo/Lenght);

Надеюсь сейчас правильно ???

[Streletz]

Надеюсь сейчас правильно ???

В каком смысле правильно? Если в смысле корректности, то это можно относительно достоверно узнать, только протестировав программу. Если результаты её работы соответствуют Вашим требованиям, то можно считать что она работает правильно.

[crancv]

Спасибо. Это я уже для внутреннего успокоения.
Сейчас пытаюсь разобраться что такое энтропия и как ее высчитать.