Курсовая работа: Разработка программы сжатия и восстановления файлов с помощью фиксированного блочного кода постоянного смещения
begin
e [i]: =i; // производим обнуление элементов массивов кодовых слов, длин кодовых слов, вероятностей и номеров элементов.
l [i]: =0;
word [i]: ='';
a [i]: =0;
end;
whilenotEOF (f) do // считываем файл до его окончания
begin
BlockRead (f,buff,1); // считываем блоки в 1 байт
a [buff]: =a [buff] +1; // записываем этот байт в массив
prog: =prog+1;
ProgressBar1.Position: =round ( (prog/size) *100);
end;
for i: =0 to 255 do
begin
word [i]: =ListBox1. Items.Strings [i]; // записываем кодовые слова из ListBox1 в массив кодовых слов
ifa [i] <>0 then // проверяем наличие байта в массиве
begin
sum: = sum+a [i]; // считаем количество повторений данного байта
end;
end;
CloseFile (f); // закрываем файл после чтения
for i: =0 to 255 do
begin
for j: =0 to 254 do
begin
if (a [j] < a [j+1]) then
begin
sort: =a [j]; // производим сортировку массива номеров элементов