Курсовая работа: Методы сжатия цифровой информации Метод Лавинского

flag1:=flag1+1;

if flag5=1 then

begin

flag2:=flag2+1;

flag5:=0;

end;

end;

kolelementovfila:=flag2;

{SetLength(massivelementov, trunc(kolelementovfila));

SetLength(massivelementov1, trunc(kolelementovfila));}

maxchislo:=strtoint(fileperem1[0]);

for i:=0 to trunc(kolelementovfila)-1 do

begin

massivelementov[i]:= strtoint(fileperem1[i]);

if maxchislo< massivelementov[i] then maxchislo:=massivelementov[i];

end;

end;

end;

//---------------------------------

// алгоритм кодирования

//---------------------------------

// определение колличества интервалов и числа символов в них

//---------------------------------

if (flag3=0) or (flag3=1) and (flag3<>11) then

begin

chisloposled:={trunc(kolelementovfila/trunc(ln(kolelementovfila)))+1}5;

Interval:={trunc(kolelementovfila/chisloposled)+1}5;

kolmetok:=trunc(Interval)-1;

SetLength(granica,kolmetok);