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

begin

bin:='';

for i:=1 to 8 do

begin

bin:=inttostr(dec mod 2)+bin;

dec:=dec div 2;

end;

DecToBin:=bin;

end;

function Bin24ToDec24(bin:string):integer;

var

i:integer;

dec:integer;

begin

if strlen(pchar(bin))<24 then

for i:=strlen(pchar(bin))+1 to 24 do

bin:='0'+bin;

dec:=0;

for i:=0 to 23 do

dec:=dec+trunc(strtoint(copy(bin,24-i,1))*intpower(2,i));

Bin24ToDec24:=dec;

end;

function Dec24ToBin24(dec:integer):string;

var

bin:string;

i:integer;

begin

bin:='';

for i:=1 to 24 do