Курсовая работа: Разработка программы сжатия и восстановления файлов с помощью фиксированного блочного кода постоянного смещения
a [j]: =a [j+1];
a [j+1]: =sort;
e [j]: =e [j+1];
e [j+1]: =sort1;
end;
end;
end;
for k: =0 to 255 do
begin
ifa [k] <>0 then // проверяем наличие элементов в массиве
begin
a [k]: =a [k] /sum; // считаем у появления символа
l [k]: =length (word [k]); // высчитываем длину кодовых слов
sl: =sl+l [k] *a [k]; // получаем значение средней длинны
end;
end;
Label2.Caption: =FloatToStr (sl); // выводим значение средней длины
ifsl< 8 then // проверяем значение средней длины
begin
Button3.Enabled: =true; // активируем кнопку “Сжать”
showmessage ('Сжатие возможно');
end;
if sl > 8 then
begin
showmessage ('Сжатие невозможно');
end;
end;
procedure TForm1.Button3Click (Sender: TObject);
begin