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

for i:=0 to kolmetok-1 do

begin

granica[i]:=i;

end;

i:=0;

j:=0;

nomer:=0;

// кодирование

while J<=kolmetok-1 do

begin

massivelementov1[j,i]:=massivelementov[nomer]-trunc(granica[j])*150;

nomer:=nomer+1;

i:=i+1;

if i=chisloposled then

begin

{nomer:=0;}

J:=J+1;

i:=0;

end;

end;

closefile(f);

if fsave.Execute then

begin

AssignFile(outf,fsave.filename+'.arhi');

Rewrite(outf);

outpos:=0;

for i:=0 to kolmetok-1 do

for j:=0 to Interval-1 do

begin